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ABSTIUkCT 


Personnel  and  equipment  casualties,  caused  by  shipboard 
fires  have  adversely  affected  overall  readiness  of  the  U.S. 
Navy  for  centuries.  Underst2mding  the  phenomena  of  fire  in 
enclosed  spaces,  such  as  those  found  on  surface  ships  and 
submarines,  will  greatly  enhance  the  Navy's  ability  to  combat 
or  prevent  them.  This  computer  model  was  developed  for  use  in 
conjunction  with  Fire-1,  an  experimental  fire  chamber  test 
facility  at  the  Naval  Research  Laboratory  in  Washington,  D.C. 
It  is  a  three-dimensional  finite  difference  model  which 
includes  the  phenomena  of  conduction,  turbulence,  global 
pressure  correction,  surface  radiation  and  strong  buoyancy 
flows.  Given  specific  data  on  heat  release,  it  predicts 
velocities,  temperatures,  pressures,  densities  and  viscosities 
throughout  its  geometry.  It  has  been  reasonably  validated  by 
comparison  with  experiments  in  Fire-1.  Advanced  graphics 
techniques,  such  as  color  contouring  and  three-dimensional 
vector  field  plotting,  have  been  applied  to  make  output  data 
more  informative.  This  model,  if  easily  modified  to  more 
specific  geometries,  may  become  a  useful  tool  for  naval 
architects  in  the  design  of  the  fire  safe  ship. 
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Z.  INTRODUCTION 


A.  BACKGROUND 

Annually,  the  effects  of  fires  on  Naval  forces  are 
particularly  devastating.  Ships  may  be  removed  from  service 
for  repairs  which  incur  costs  that  may  run  into  the  tens  of 
millions  of  dollars.  Personnel  casualties,  ship  down  time, 
equipment  repair  and  replacement  all  result  in  a  loss  of 
overall  readiness  of  our  fleets.  The  prevention  of  shipboard 
fires  is  of  the  utmost  importance  to  today's  Navy.  The 
understanding  of  the  phenomena  of  fire,  espe..ially  in  the 
enclosed  spaces  found  aboard  ship,  is  the  first  step  toward 
its  control  and  prevention. 

The  study  of  fire  propagation  requires  the  combined 
knowledge  of  fluid  dynamics,  mass  and  heat  transfer,  and 
combustion.  Research  into  the  mechanics  of  fire  and  prediction 
of  its  behavior  will  aid  engineers  in  reducing  the  probability 
of  its  Ignition  and  propagation. 

There  are  a  number  of  ways  to  conduct  this  research.  The 
most  obvious  is  experimental.  But,  fires  aboard  ships  are  very 
complex.  Often  they  are  in  enclosed  airtight  spaces  which 
allow  pressures  to  build.  These  spaces  may  be  full  of 
electronic  equipment,  flammables  or  toxic  substances.  Their 
accessibility  may  be  extremely  limited,  hampering  efforts  to 
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combat  fires.  An  experiment  that  can  accurately  account  for 
all  these  complexities  becomes  very  expensive. 

At  the  Naval  Research  Laboratory  in  Washington,  D.C.,  the 
Navy  has  built  Fire-1,  a  large  pressure  vessel  designed  to 
model  fires  aboard  submarines,  or  closed  compartments  and 
tanks  found  on  surface  ships.  It  allows  fires  to  bs  studied 
under  the  unique  conditions  experienced  in  shipboard  fires. 

Another  method  for  conducting  fire  research  is  the  use  of 
a  computer  model.  As  computers  get  faster  and  can  allow  for 
large  amounts  of  data  storage,  researchers  are  able  to 
thoroughly  model  fire  phenomena  and  predict  future  behavior 
without  the  continuous  expensive  full  scale  testing  of  Fire-1 . 
Fires  may  be  modeled  by  the  numerical  solution  of  the 
governing  equations.  These  models  are  then  verified  by  the 
existing  data  from  experiments,  with  an  accurate  computer 
model,  several  options  are  available.  More  complex  geometries 
may  be  incorporated  for  specific  areas  of  interest.  Entire 
models  of  ships  may  someday  be  developed  to  show  areas  of 
susceptibility  in  design.  Effects  of  firefighting  methods  may 
be  accurately  predicted.  The  savings  in  running  computer  codes 
versus  full  scale  testing  are  considerable. 

Also,  now  that  a  high  speed  VAXSTATION  3100  SPX/RJ19  Model 
38  workstation  may  be  dedicated  to  this  particular  simulation, 
computing  costs  may  be  minimized.  The  current  code  requires 
approximately  1.0  hours  of  VAXSTATION  CPU  per  second  of  fire 
time. 
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B.  CONPDTIR  MODELING 

Field  modeling  uses  difference  forms  of  the  conservation 
equations  of  mass,  momentum,  energy  and  species.  These  are 
used  to  calculate  temperature,  velocity,  pressure,  viscosity 
and  density  at  specific  points  in  the  volume  of  interest.  This 
volume,  being  the  compartment  studied,  is  broken  down  to 
finite  volume  elements.  The  conservation  equations  are  solved 
at  this  level  for  discrete  time  steps  from  a  known  initial 
condition.  Additional  models  of  physical  effects  such  as 
radiation,  turbulence,  and  wall  conduction  are  included  to 
increase  the  simulation's  validity.  This  method  requires  large 
amounts  of  computer  memory  and  high  speed  processors. 

Much  research  has  been  done  previously  and  has  provided 
the  basis  for  this  thesis.  At  the  University  of  Notre  Dame 
[Refs.  1  and  2]  work  has  been  conducted  involving  aircraft 
cabin  fires  using  a  two  dimensional  finite  difference  field 
model  which  predicts  velocity,  temperature  and  smoke 
concentration  inside  the  passenger  area  of  an  aircraft. 
Nicolette  et  al.  [Ref.  3]  developed  a  two  dimensional  model  of 
transient  cooling  by  natural  convection.  It  utilized  a  fully 
transient,  semi-implicit  upwind  differencing  scheme  and  global 
pressure  correction  that  was  verified  experimentally. 

More  recent  [Refs.  4  through  12]  studies  have  developed 
numerical  solutions  for  three  dimensional  rectangular 
enclosures  in  which  non-linear  partial  differential  equations 
were  solved  by  finite  difference  methods.  Models  for  three 
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dimensional  cylindrical  coordinate  buoyant  flows  [Refs.  13 
through  19]  have  also  been  developed,  and  deal  mainly  with 
horizontal  annuli  with  differential  temperatures  specified  at 
inner  and  outer  cylindrical  walls.  Smutek  et  al.  [Ref.  18] 
studied  buoyant  flows  in  horizonal  cylinders  with 
differentially  heated  ends  at  low  Rayleigh  numbers  (74  ^  Ra  ^ 
18700) .  Yang  et  al.  [Ref.  19]  conducted  a  similar  study  but 
with  high  Rayleigh  numbers  (10^  Ra  10^) . 

Studies  have  also  been  done  on  methods  for  decoupling  the 
pressure  terms  from  the  Navier-Stokes  Equation.  The  stream 
function-vorticity  formulation  has  been  used  [Refs.  13  through 
18]  to  calculate  natural  convection  in  various  geometries. 
There  are  problems  with  this  method  such  as  instability  at 
high  Rayleigh  numbers.  Yang  et  ai.  [Ref.  19]  address  this 
problem  and  suggest  using  a  primitive  variable  formulation 
when  using  arbitrary  orthogonal  coordinates. 

Natural  convection  in  spherical  annuli  was  studied  by  Ozoe 
[Ref.  20]  utilizing  velocity-vector  formulation.  Field  models 
involving  prediction  of  fires  in  enclosures  have  been  studied 
by  Baum  and  Rehm  [Refs.  21  through  24].  These  include  time 
dependent  Boussinesq  equations  to  simulate  three  dimensional 
buoyant  convection  and  smoke  aerosol  coagulation.  Field  models 
involving  three  dimensional  enclosures  and  employing  the 
Boussingesq  approximation,  were  studied  by  Bagnaro  et  al. 
[Ref.  25]  and  by  Markatos  and  Pericleous  [Ref.  26] . 
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In  this  thesis,  the  numerical  method  developed  by  Yang  et 
al.  [Ref.  19]  using  primitive  variable  finite  difference 
discretization  in  generalized  orthogonal  coordinates  is 
employed.  This  method  can  handle  complex  geometries  and  has 
the  numerical  stability  characteristic  of  primitive  variable 
formulation. 

C.  riRl-1  TIST  FACILITY 

An  experimental  test  facility  called  Fire-1,  has  been 
constructed  at  the  Naval  Research  Laboratory  to  study  the 
behavior  of  fires  in  enclosed  spaces  found  on  submarines  and 
surface  ships.  Since  the  computer  code  presented  in  this 
thesis  models  the  geometry  of  Fire  1,  this  section  contains  a 
brief  description  of  that  facility.  More  information  may  be 
obtained  from  Alexander  et  al.  [Ref.  27].  Figure  i.l  shows 
the  basic  layout.  Fire-1  is  a  cylindrical  pressure  vessel  with 
hemispherical  endcaps.  It  is  constructed  of  3/8-inch  ASTM  295 
Grade  C  steel  and  can  withstand  internal  pressures  up  to  89.7 
psi  and  temperatures  of  450®F.  Its  total  length  is  46.6  feet 
long.  The  cylinder  and  endcap  radii  are  both  9.6  feet.  Rupture 
discs  are  placed  at  each  endcap  to  prevent  failure  due  to 
overpressurization . 

Figure  1.2  shows  the  instrumentation  layout.  An  array  of 
chromel-alumel  thermocouples  with  ceramic  insulation  and 
stainless  steel  jackets,  are  placed  near  each  endcap. 
Additional  thermocouples  are  placed  on  the  chamber  walls,  both 
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rigur*  I'.l  Drawing  of  rir«-l  T«st  V«ssttl. 
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rigur*  1.2  Sansor  Locations  of  Flra-1  Tost  Vassal. 
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inside  and  out,  to  monitor  inside  and  outside  wall 
temperatures.  A  specific  test  might  call  for  placement  of 
extra  thermocouples  or  radiometers  at  various  other  locations. 
These  are  arranged  as  required  by  the  experiment. 

Burn  rate  data  is  obtained  using  round,  tapered  edge  fire 
pans  of  various  cross  sectional  areas,  and  a  constant  level, 
liquid  fuel  supply  system.  To  date,  this  data  has  been  the 
least  accurate  in  the  experiment.  The  system  and  its 
calibration  are  described  by  Alexander  et  al.  [Ref.  27] .  Smoke 
concentration  can  be  measured  using  video  cameras,  particle 
analysis  and  obscuration  with  laser  detectors. 

To  more  completely  represent  shipboard  compartments,  the 
facility  has  a  number  of  features.  First  is  the  installation 
of  two  removable  decks,  one  at  the  midheight,  the  other  at 
three  feet  above  the  bottom.  Either  grated  or  solid  deck 
plating  is  used  depending  on  desired  configuration.  Second  is 
the  installation  of  a  nitrogen  pressurization  system  used  as 
an  extinguishing  agent.  Its  performance  is  being  tested  for 
possible  use  combatting  actual  fires. 

D.  TBl  CQNPUTIR  PROGRAM 

This  computer  model  is  a  joint  project  undertaken  by  the 
Naval  Postgraduate  School  and  the  University  of  Notre  Dame.  It 
represents  a  low  cost  alternative  to  full  scale  test  using 
Fire-1.  With  proper  modifications,  used  in  conjunction  with 
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Fire-1,  it  will  test  effectiveness  of  damage-control  systems 
and  evaluate  new  ship  designs. 

In  the  work  by  Nies  [Ref.  28],  the  code  was  based  on  a 
rectangular  geometry  with  the  volume  identical  to  Fire-1.  This 
was  a  three  dimensional,  finite  volume  model  using  primitive 
^  variables.  Turbulence,  wall  conduction,  and  a  global  pressure 

correction  factor  were  also  included.  Due  to  the  unreliability 

■r 

of  burn  rate  data,  Nies  [Ref.  28]  devised  a  scheme  for 
computing  a  heat  release  rate  by  using  experimental  pressure 
curves  as  input. 

The  actual  geometry  of  Fire-1  was  employed  by  Raycraft 
[Ref.  29] .  Using  its  spherical/cylindrical  coordinate  system 
and  detailed  formulation  of  radiation  surface  view  factors, 
global  pressure  correction,  conduction  and  turbulence,  the 
code  created  an  extremely  viable  model  for  use  with  Fire-1. 
There  were  the  continued  problems  with  simulating  the  heat 
release  data  which  were  partially  resolved  by  numerically 
fitting  experimental  burn  rate  data  available. 

Houck  [Ref.  31]  included  a  model  which  simulated  internal 
forced  circulation.  It  was  compared  to  data  run  without 
circulation  and  it  was  concluded  that  circulation  had  minimal 
effects  on  the  overall  velocity  and  temperature  profiles. 

«  In  this  thesis,  advanced  three  dimensional  and  color 

graphics  techniques  are  used  to  present  data  generated  using 
the  previously  developed  codes.  Using  the  VAXSTATION  3100  SPX 
and  the  software  CA-DISSPLA  [Ref.  31]  the  data  is  presented  in 
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a  more  informative  fashion.  Color  graphics  are  used  to  present 
isotherm  profiles  and  three  dimensional  vector  fields  will 
represent  velocity  profiles. 
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ZX.  DSSCItZPTIOM  or  NaMEttXCaJ.  MODEL 


V 


A.  GOVERNING  EQGATZONS 

The  model  is  based  on  the  system  of  conservation  equations 
which  govern  the  behavior  of  fluid  flow  and  heat  transfer  in 
gases.  These  equations  are  in  differential  form  and  are 
presented  in  generalized  curvilinear  coordinates  using 
standard  tensor  notation.  Nies  [Ref.  28]  based  his  model  on 
rectangular  geometry  using  Cartesian  coordinates.  Raycraft 
[Ref.  29]  refined  the  model  to  describe  the  exact  geometry  of 
Fire-1  and  included  surface  radiation.  Houck  [Ref.  30] 
described  the  transformation  to  curvilinear  coordinates,  used 
by  Yang  et  ai.  [Ref.  19],  in  detail  and  the  following  forms  of 
the  governing  equations  are  obtained. 

The  equation  of  continuity  is; 


The  energy  equation  becomes: 


1  9  ( )  *  s. 


fg 


(2.1) 


(2.2) 
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where  the  source  term,  is: 


(2.3) 


and  the  dissipation  term  is: 


O  ■  2  { 


(2.4) 


Sh,  is  the  heat  source  term  which  is  zero  everywhere  except 
nodes  at  the  fire's  location  and  is  the  Kronecker  Delta. 
The  momentum  equation  becomes: 


(  pu^  )  j  ♦ 


1  d 

7? 


.  pc' *  4.  3  ( ) 

W  ( -5^  -JJ!  (  p"'“'  ■  ) 


(2.5) 


where  the  stress  tensor  is: 


‘ -b: -JF  [  •57  ^ 

^  h,  J  f  u'  V  8„  3q„  fyru-  Y 

J  -sib;  J' 


(2.6) 


Effective  conductivity  Jc,ff  and  dynamic  viscosity  |i,ff  include 
both  laminar  and  turbulent  terms.  Additional  terms  found  in 


the  momentum  equation  are  due  to  coriolis  and  centrifugal 
effects. 

The  equations  of  state  remain  unchanged  through  coordinate 
transformations  and  are  given  as: 


p.pRr 

(2.7) 

Ifrc^(r-r,) 

(2.8) 

B.  INITIAL  AND  BOONDABY  CONDITIONS 

In  order  to  solve  this  system  of  differential  equations, 
boundary  and  initial  conditions  must  be  determined  and 
applied. 

1 .  Initial  Conditions 

The  initial  conditions  for  the  model  are  determined 
from  conditions  present  just  prior  to  ignition  in  Fire-1.  The 
air  inside  is  totally  at  rest.  The  temperature  is  ec[ual  to 
ambient  temperature  and  is  assumed  uniform  throughout. 
Therefore,  in  the  model,  the  entire  velocity  field  is  set  to 
zero  and  the  non-dimensional  temperature  field  is  set  to  1.0 
which  corresponds  to  ambient  temperature.  Pressure  and  density 
distributions  are  at  static  equilibrium. 

2 .  Boundary  Conditions 

Since  the  vessel  wall  is  a  solid  boundary  which  is 
nonporous,  the  velocities,  both  normal  and  tangential  to  the 
wall,  are  zero.  Mass  flux  across  the  wall  is  also  zero.  The 
temperature  of  the  wall  is  equal  to  the  temperature  of  the 
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fluid  at  the  interface.  Conservation  of  energy  must  also  be 
met  at  the  interface.  The  following  three  equations  summarize 
wall  boundary  conditions: 


u/„r/  *0  (2*®) 

^ fluid  *  ^tolid  (2.10) 

I  f  •  I  uolid  (2.11) 

where  q,  is  the  heat  flux  arriving  at  the  solid/ fluid 
interface  and  n  is  the  normal  direction  of  the  surface  into 
the  enclosure.  There  is  conduction  through  the  wall  and 
convection  from  outer  surface  to  ambient  temperature. 

Due  to  singularities  occurring  at  r*0  in  cylindrical/ 
spherical  coordinates,  special  care  must  be  taken  at  the 
origin.  Yang  et  ai.  [Ref.  19:pp.  167-168]  discuss  methods  for 
addressing  this  problem.  In  this  model,  two  consecutive 
control  volumes  are  placed  at  r«0  and  continuity  is  applied. 

c.  mills  or  PBYszciL  fbhigneki 
1.  Nall  Conduction  Nodal 

This  model  calculates  heat  loss  from  the  vessel 
through  the  walls  to  the  environment.  It  assumes  one 
dimension,  unsteady  heat  flow  and  constant  convective  heat 
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transfer  coefficient  at  the  wall's  exterior.  The  energy 
equation  is: 


% 


<  P.C,,T  ) 


+  S 


(2.12) 


2 .  Turbulence  Model 

The  turbulence  model  is  a  simple  algebraic  method  used 
to  predict  mean  flow  quantities  for  incompressible  boundary 
layer  flows.  Developed  by  Nee  and  Liu  [Ref.  33],  the  model 
determines  the  effective  viscosity  in  recirculating  buoyant 
flows  with  large  variations  in  turbulence  levels.  The 
equation,  transformed  into  generalized  curvilinear 
coordinates,  is: 


(2.13) 
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where  I /H  is  a  non-dimensional  mixing  length  parameter  given 
as: 


K  is  an  adjustable  constant  and  the  Richardson  Number,  Rl,  is 
given  as: 

(2.X5) 

/T  is  a  unit  vector  in  the  opposite  direction  of 

gravity. 

Pr.  is  the  turbulent  Prandtl  number  which  is  also  used 
to  compute  the  effective  conductivity. 


Tr  Tr;  — 


(2.16) 


Pr  is  the  molecular  Prandtl  number. 
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3.  SurfacA  Radiation  Modal 

Raycraft  [Ref.  29,  pp.  24-44]  describes  this  model  in 
detail.  Summarizing,  the  radiation  model  considers  only 
surface  radiation.  Smoke  and  gases  are  considered  transparent. 
Inside  the  model,  walls  and  flame  areas  are  treated  as 
surfaces.  Each  surface  is  considered  to  be  gray  and  diffuse. 
Sparrow  and  Cess  [Ref.  34]  discuss  the  net  radiosity  method 
upon  which  this  model  is  baaed. 

Net  rate  of  heat  loss  per  unit  area  is  given  as: 

where 

. "  Vij  )  (2.18) 


Vij  •  x« 


Xij 


^1]  “  (  1  ”  Cx  ) 


(2.19) 


Fai-aj  is  the  view  factor  of  radiation  emitted  by  surface  i  onto 
surface  j.  The  general  equation  is  given  by 


.Iff  cospiCosp^dA.dA^ 

t;  j*.  Ja, - nP - 


(2.20) 
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ZZZ.  rZNZTl  VOLUME  CALCUZATZONS 


A.  ZETRODUCTZOM 

The  numerical  model's  independent  variables  are  time  and 
three  space  coordinates.  Dependent  variables  consist  of  the 
three  dimensional  components  of  velocity,  temperature, 
pressure  and  density.  These  six  unknowns  require  six  equations 
for  solution.  They  are  the  continuity  equation  (Eq.  (2.1)), 
the  three  momentum  equations  (Eq.  (2.5)),  the  energy  equation 
(Eq.  (2.2)),  and  the  equations  of  state  (Eq.  (2.7)  and  (2.8)). 
Ooria  [Ref.  35]  discretized  these  equations  in  a  method 
similar  to  this  particular  model  based  on  the  generalized  form 
presented  by  Patanker  [Ref.  36] .  Doria  applied  the 
conservation  equations  in  integral  form  to  each  control  volume 
creating  a  set  of  finite  difference  equations  which  would  lead 
to  a  solution. 

Each  control  volume,  or  cell,  surrounds  a  nodal  point 
where  one  value  of  each  property  is  constant  throughout.  The 
center  nodal  point  determines  pressure  density  and 
temperature.  The  grid  determining  velocities  are  staggered  by 
one-half  a  cell  length.  Patanker  [Ref.  36:pp.  115-120] 
describes  how  this  alleviates  two  problems;  the  pressure 
differential  between  the  two  adjacent  nodes,  which  ultimately 
determines  the  velocity  at  the  node  in  question,  is  based  on 
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a  length  which  is  half  as  long  as  in  the  unstaggered  cell 
(this  reduces  error  by  one  half) ;  second,  stability  is  gained 
by  this  stagger  which  precludes  unrealistic,  wavy  oscillatory 
velocity  fields,  since  the  difference  of  adjacent  velocities 
are  used  to  satisfy  continuity. 

Since  primitive  variables  are  used  versus  the  stream 
function,  the  pressure  term  coupling  between  equations  must  be 
handled  specially.  An  iterative  procedure  estimates  pressure 
and  then  pressure  is  corrected  to  ensure  continuity  is 
satisfied  for  each  cell.  A  local  pressure  correction  is 
discussed  by  both  Patanker  [Ref.  36:pp.  120-128]  and  Doria 
[Ref.  35;pp.  26-32],  A  global  pressure  correction  is  included 
in  the  model  to  handle  net  energy  changes  and  is  described  by 
Nicolette,  et  ai.  [Ref.  3]. 

The  finite  difference  equations  are  solved  iteratively. 
Non-linear  problems  like  fluid  flow  are  difficult  to  force 
convergence  to  final  solution.  Many  schemes  have  been 
developed  to  obtain  the  flow  problem  solution.  Each  method  has 
its  problems  and  instabilities.  This  model  employs  the 
Quadratic  iJpstream  interpolation  for  £onvective  fCinematics,  or 
QUICK,  developed  by  Leonard  [Ref.  37] .  QUICK  estimates  values 
and  gradients  of  transport  variables  at  the  faces  of  the 
cells.  It  has  the  accuracy  of  central  finite  difference 
schemes  and  the  stability  of  convective  diffusion  terms  found 
in  upwind  differencing.  Yang  [Ref.  12]  applied  the  QUICK 
scheme  to  coupled  momentum  energy  and  pressure  equation 
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solutions  for  three-dimensional  flow  in  tilted  rectangular 
enclosures. 

In  this  chapter,  the  governing  equations  will  be  applied 
to  the  specialized  control  volumes  of  the  model.  They  will  be 
put  in  integral  form  and  discretized  according  to  the  QUICK 
scheme.  Pressure  correction  from  iteration  will  also  be 

applied. 

•  .  CONTROL  VOLOm  ANRLY8ZS 

At  the  center  of  each  elemental  control  volume,  or  cell, 
lies  the  grid  point  of  interest.  At  this  point,  the  model 
determines  the  unknown  values  of  the  dependent  variables. 
Denoting  this  grid  point  as  P  (i,  j,  k)  we  define  its 
neighbors  as:  £ast  (i+1,  j,  k) ,  IJest  (i-1,  j,  k) ,  UP^th 

(i,  j+1,  k),  ^outh  (i,  j-1,  k),  £ront  (i,  j,  k+1),  and  £ack 
(i,  j,  k-1) .  The  boundaries  around  P  are  designated  by  lower 
case  letters  e,  w,  n,  s  f,  and  b.  Typical  spherical  and 

cylindrical  cells  are  shown  in  Figures  3.1  and  3.2 

respectively. 

Figure  3.3  shows  the  basic  two  dimensional  cell  used  to 
determine  pressure,  density  and  temperature.  In  contrast. 
Figure  3.4  shows  the  staggered  grid  us€;d  to  determine 
velocities.  The  velocity  u/*  is  located  on  the  west  face; 
is  located  on  the  south  face  and  u,^  is  located  on  the  back 
face  (not  shown)  .  The  superscripts  on  the  velocities  designate 
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riguM  3.1  Basie  Spbarieal  Call. 
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coordinate  direction.  These  velocities  are  staggered  in 
location  by  one-half  cell  length  from  the  primary  cell. 


C.  INTIGRATION  OF  TSB  CONSXRVATZOM  EQOUTIONS 

The  conservation  equations  are  integrated  over  each  cell 
volume.  From  this  point,  they  can  be  discretized  into  finite 
difference  equations.  The  integral  form  of  the  continuity 


equation  is: 


J|Phihjh3  301  30’ 

(pu'*2*3)  (pu’hjhi) 

(pu’hjhj)  3  301 30’ 30’ 


(3.1) 


The  energy  equation  becomes: 

J  h,h,h,  301 30’  30’ 

(pC^uirhjhj)  (pC^u’Th^h,) 

(  pCp.u’rh.hj )  3  301 30’ 30’ 

•  30i30’30’+j5hihjh3  30i30’30’ 

where : 

-k  Bt 

^  Ti7W 


(3.2) 


(3.3) 
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The  momentum  equations  become: 


(pu-*) 

[  (h^)pu^un  de^de^ae* 

•J^  (pili^aei  96*903 

♦  JpG^hihjh,  90*  90*96*  (3.4) 

-/■^‘ISj<p“’“‘-“"'>®®‘®®’®®‘ 

♦  (puJu^-o«)  ]  90*90*90* 


D.  DZSCXITIIXTZOII  OF  TO  CONTZMUZTY  IQOIkTZOII 

To  provide  maximum  stability  and  accuracy  for  the  model, 
three  finite  differencing  schemes  are  utilized.  Forward 
differencing  is  used  for  time  dependence,  central  differencing 
Is  used  for  diffusion  terms  and  the  QUICK  algorithm  is  used 
for  the  convective  terms. 

In  forward  differencing  the  future  value  of  the  time 
dependent  variable  is  predicted  from  its  previous  value  plus 
an  additional  term  derived  from  the  previously  knov/n  slope  m 
multiplied  by  the  time  step  At.  For  example  the  new  value  for 
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density  p"  is  calculated  using  the  old  value  p"”^  plus  the 


extra  term: 


p"  «  pn-i  +  itiAt  (3*5) 

The  integrand  in  the  continuity  equation  (3.1)  becomes: 

||  dV »  PlyPll hi hj h,  Ae^  AB^  AV  (3.6) 

Evaluating  the  integral.  Equation  (3.1)  becomes: 

(p"-p"-M  Ipu^hjhjdB^dB^],-  (  pu^hjhjde^de’ ]  ^ 

+  [pu^hjhjdeideMfl-  [pu'hjhjde^deM, 

♦  [pu»hihjd0ide»  ]^-  t  pu*hih,de^d0Mi,-O 

The  mass  flux,  G,  must  be  calculated  at  each  face: 


G-(puM  » ^ ^ ^ ^ ^ 

•  ^  ♦  (  hiAOMT 


Gy*  (puM^*ui 


Pp(h,A0M,.i*p,(h,AeM, 

(  hjA0^ )  )” 


(3.9) 


G„*  (puM  -u* 


pp  (  hj A02 )  J.1  +  p„  (  hj A0* )  J  (3.10) 
(  h2A0^ )  +  (  hjAfl^ )  j 


(  puM ,  ■  u; 


Pp  <  h;A0^ )  *  Pa  (  h;A0^ )  j  (3 . 11) 


(  hjA0^ )  J.1  +  (  hjid* )”, 
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(3.12) 


Gj,  *  (  puM  , 


3  Pp  (  ^3^®^  )  **x  ■*’  Pr  (  ^3^0^  )  Jt 


Gp*  <  puMi,*Ub 


Pp{h3AeMk.i  +  pB(M®M* 
( hjAe" )  *.i  +  ( )  * 


(3.13) 


The  areas  of  the  faces  of  the  cell  are  given  as: 


(hjAe^hjAeM,., 


(3.14) 


A,..-(h,Ae^h,AeM„.. 


(3.15) 


A,,^  -  (iJiA0^  iijAe* )  (3.16) 

In  final  finite  difference  form  the  continuity  equation 
becomes : 


+  +  (3.17) 

S.p  is  the  mass  source  term.  As  this  residual  approaches  zero, 
the  solution  approach  the  exact  solution.  Iterations  occur 
until  S,p  reaches  a  specific,  extremely  small,  cut  off  value. 
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I.  DISCRETIZATION  OF  THE  ENERGY  EQUATION 

Integrating  over  the  control  volume,  the  energy  equation 


becomes : 


[  (pCp.r)"-(pc^r)”-'!|^*5.  (VIA 

-e.(C^T),A,*a,  (C^T),  A,- G,(C^T),  A,* 
a,(C^T),A,-e,(C^T),A, 

*  *'*'  [-W 1 '  ***‘  1 " 

V  *  Jf  V  ’  > 

where  S{  is  the  source  term  including  dissipation,  radiation, 
pressure  work  and  heat  sources.  The  total  heat  flux,  J, 


resulting  from  convection  and  conduction  is: 


(3.19) 


(pC^u^D  -k.,. 


h;w 


(3.20) 


If 


^If  (pC^u^T) 


(3.21) 
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The  final  finite  difference  form  of  the  energy  equation 
becomes : 

-  JiA.  +  A„  -  jfA.  +  jiAf  -  J^A^  »  5,AV 

The  term  {pu^C^T)  in  the  flux  equations  give  rise  to 

difficulties  since  Cp,,  p  and  T  are  evaluated  at  the  nodal 
point  instead  of  the  surface  of  the  cell.  Thus,  fluxes  are 
determined  from  values  of  p,  T,  and  Cp«  at  P  and  its  neighbors. 

The  QUICK  Scheme  is  used  to  determine  accurate  values  of 
the  dependent  variables  at  the  control  volume  surfaces  with 
stable  properties.  QUICK  couples  the  stability  of  upwind 
differencing  with  the  accuracy  of  central  differencing.  It  is 
achieved  by  using  a  parabolic  polynomial  interpolation  to  fit 
the  control  volume  at  three  consecutive  nodal  points.  Two 
nodes  are  located  on  either  side  of  the  surface  and  one  Is 
located  upstream.  Yang  [Ref.  12;pp.  77-89]  discusses  QUICK  for 
one,  two  and  three  dimensions.  Houck  [Ref.  30: pp.  37-50]  and 
Raycraft  [Ref.  29:pp.  63-74]  used  the  QUICK  scheme  for  the 
energy  equations  and  that  method  is  repeated  here. 

Figure  3.5  from  Raycraft  [Ref.  29;pp.  64]  shows  the  one 
dimensional  scheme  for  the  quadratic  interpolation  of  a  non- 
uniform  grid. 


It  is  given  by  the  equations 


(pCp 


,ur),«G.Cp.J| 


curv,  j 


[f  r.  +  1 


(pC^vT)^mG^C^^ 
where  the  upstream  weighted  curvature  terms  are; 

>0 


AxJ  r  r.  -  r.  r.  -  r„  ‘  ,  ^  ^ 

•  37;  [  ay;  a7;  J  • 


curv„ 


Axi 

•r„-r._  r,-r. 

[-s7:r  “s^ 

Axi 

■p 

Ax*r 

r,-r,_  r.-r,l 

TST^L-Tner  TTrj 

,<0 


if  G^>0 


if  6^<0 


and 


AX,-^  (AX^+AX^.i) 
AX.-^  (AX,  +  AXj.i) 
AX^-^  (AX,*,+AX,,2) 
AX^-^  (AX,.i+AX,.j) 


(3.23) 


(3.24) 


(3.2S) 


(3.26) 


(3.27) 
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In  generalized  orthogonal  coordinates  the  convective  flux 


terms  become: 


where 


ik^-^curvn,  j 

(  pCp.u2  r ) ,  -  -  i  curvn, 

V  / 

•  ThTSFTT  [THTSFT;  ThllFTIJ 

,  (MeMir  _  r-r, 


(3.28) 


(3.29) 


(3.31) 


(  hiA0i )  •  •  -J  (  (  )  ^  ♦  (  hjAe^ )  ) 

[  (M®')i*  (hiAeM,.J 

(  hj Ae^ )  ^  •  ^  (  (  AiAe^  ),,!•►(  hjAe^ )  ] 

( h,Ae' ) «  -  i  [  ( AjAe^ )  ,.j  +  ( hjAe'  >  j 


Equation  (3.22)  now  becomes: 


[  <pc^r)"-(pc^r)-M  ] 

•  AeTE*A^T^-AfTf*S  {  h^^Q^  ) 


(3.32) 


(3.33) 
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and  are  included  in  the  source  term  using  a  semi- 
implicit  tri-diagonal  solution  procedure.  For  a  uniform  grid, 
the  other  coefficients  are: 


^ - 


k. 

-h^ 


A,.  ^  I  g.  H  S.  I  )  *  (3-3S) 


♦3(|G.|  C^.G.)  (3.36) 
S, - SJl.Ae>  - (  I  G. I  -G.)  r„-C^(|G,|  .G.)  r„  (3.37) 

As  mentioned  before,  Yang  (Ref.  12:pp.  82-89]  extended  the 
QUICK  algorithm  to  three  dimensions.  The  three  dimensional 
algorithm  for  generalized  orthogonal  coordinate  system  Is 
described  below. 

As  in  the  one  dimensional  case,  the  average  temperature  of 
the  control  volume  Is  determined  by  interpolation  of  its 
neighbors  in  three  directions.  For  illustration.  Figure  3.6 
from  Raycraft  (Ref.  29:pp.  68]  shows  a  simpler  uniform 
rectangular  grid.  The  actual  grid  Is  similar  except  that  its 
cylindrical/spherical  geometry  is  more  difficult  to  show.  Yang 
(Ref.  12]  describes  how  curvature  terms  are  calculated  for 
each  of  the  temperatures  and  substituted  into  the  convection 
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rigurtt  3.6  Calenilatlcm  Calls  for  m  Calf  on  Raotsngular  Grid. 


terms  of  the  energy  equation.  The  new  energy  equation  becomes 


»  Ac  Tg  *a2t„*  aJ  *  aJ  r,  +  Ar^  ♦  aJ  T,  +  S J 


(3.38) 


where  the  additional  source  term  S/  Is: 

5u  ■  (  p  ^  -  Afgg  *  Af^  +  Afgff^  *  Aggn  *  Affg  *  Aggg  (3 . 39) 

The  following  terms  are  part  of  Equation  (3.38).  All  values 
are  for  point  (1,  j,  k)  unless  specified  elsewhere.  For  *  = 
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example,  u^ijn  is  designated  whereas,  Ui+i,  ^ 

Uin* 


is  specified 


CN»G„'  (hjAe^)^-  (hiA0M„ 

C5*G,*u5-  (hjAeM,*  (hiAeM, 
c£*G,*  ulr  (hjAeM.-  (Me*), 
CW*  (?,  •  ul  •  (  hjAe* ) ,  •  (  hjAe* ) , 
CF*Gf-  u*^l  •  (  hjAe* ) ,  •  (  hj Ae* )  ^ 
CB-G,-  ul-  (AzAe*)^ 

Thermal  conductivity  is  expressed  as: 


{kj-  {  h,Ae* )  j ) •*  +  ( •  (  hjA0* )  )  -* 

(i3,A0^)j.i 

(Icj*  (h,A0*)p**+ (h,A0»)j.i)*^ 
(ii,Ae*)j+  (h,A0Mj.i 

{k,-  (hjAeMi)***  (^A0M,.i)*' 

<hiAeMi+  (hjAeM^^i 

(Jc,*  (h,A0M,)'*^  (*i.x-  (hiA0M,,)*' 
(hiAei)^+  (hiAe^ii 

(/c*-  (hjAe*)*)-**  ()c**x*  (M0’)*.i)'' 
(  hjAe^)  *  ♦  (  hjAe* )  *»J 

(k,-  (  hjAe*  )*)-*♦(  •  (  hjAe* )  *.i )  -1 

(hjAe^)**  (hjAoM*.! 


(3.40) 


-I 


-X 


•1 


(3.41) 


i-i 


1-1 
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CONDNl  *  k. 


CONDSl  »  k. 


CONDEl  « Jc. 


CONDWl  «  k^ 


CONDFl  ■  /c,  * 


CONDBl  •  k^ 


*  h,A0^ 
— — 


hjAe^  •  h,  AO' 

hjAO^  *  hjAS^ 
— — 

hjAe*  •  hjAe* 

5;ot 

hjAe^  •  AjAe* 
hjAei  •  hjAe* 


Jv 


J/ 


(3.42) 
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CE  *  CE 

CEP «  15  '  * 


CEM* 

CWP« 

C«M« 

CWP* 

CWM« 

CSP« 

CSW< 

CEP' 


CE|  -  CE. 

TS 


CV\  +CW. 

-T5 - 


CF^I  -  CRT. 
16 


CN|  ♦CW. 


cw|  -cw 

■~T1B - 


cs  I  *cs . 

— n — 


cs  I  -  cs . 

- 


CFl  ♦CF. 
“T? - 


CEP.iallES- 

Tb 


CBW' 


CB|  -CB 

rs 


(hi  ABM, 

( hiTF)’, 

( hiAB' ) . 

’(Wn:; 

(ill  ABM  ^ 

(iiiA^Mi.i 

( hiAB^ ) , 
(iii  AS^  )i 

( hjAB* )  „ 

TK;2rFT; 

(MBM„ 

(iijA^*)^.i 

(iijABM, 

(ii,ABM^.i 

(iijABM. 

thrift; 

( ii,AB> ) , 

( ii, AB^ ) , 
<MBM*‘i 
(iijABMt, 

TWTT: 

( iijAB^ )  ^ 

(iijABM*’ 


(3.43) 
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M 


.  -CJSM* 

) .. 

r  -CWP*  (h^AeM^ 

UU  V  -- 


«iw 


( il,At(‘  ) 


-CKM-  (hjAe'). 

,,  -CSP-  <S,A6M, 

*“■ - (A,Afli)„ . 

,,  -CFM*  (hjAGM, 
r  -CBP*  (iijAeMt 

— (Wr: . 

Final  coefficients  for  the  source  term  are: 


^c«  ■  *  2’^*2  *  Cp*,., 

r,.,- 

Ajbkp  •  Afiw  *  7^*2  • 

A,„«A,V  r^.2* 


P*M 


Arrn  *  Arr  * 


Aj,,  •  A/,  •  r».i  •  c. 


P»M 


(3.44) 


(3.45) 
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Intermediate  coefficients  are 


Agj  *  -  ^  •  CE*  CEP  *  CEM 


■>  m 

,  *  (M9‘). 

+  CWM* 

(  h,  Ae^ )  ^ 

(  ) « J 

( AiA^h. 

•  cw*ct9M*cm> 


■  « 

*  CEP  • 

(hjASM. 

(hjASh„ 

(3.46) 


(3.47) 


*.VI 


•  CW+CNP  +  CWM 


■  • 

♦  CEP  • 

»  ■ 

( AjAe* ) . 

<  ft, 49' ) «,  J 

•  CS*CSM*CSP 

•  • 

+  CNP’ 

»  « 

(  )  „  . 

( AjAe^ ) , 

(3.48) 


(3.48) 


A:..  »  -  i  •  CF  ♦  CFP  *  CFM 
2 


■  ■ 

(Me;), 

♦  CBM” 

( /ijAe^ ) ,,  _ 

m^sirri 

(3.50) 


Ag  j  -  ^  •  CB  +  CBW  ♦  CBP 


+  CFP  • 


( hjAe^ ) , 


(3.51) 
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Final  coefficients  are: 


and: 


a/«a 


‘El 


a;*  A, 


wr 


Aw  •  A, 


NX 


aI^a 


'St 


A/ -A, 


TX 


A/- A 


■I 


Cim.  CONDEl 

c„  +  comm 

p*» 

+  comm 

P»» 

C-.  +  comsi 

P"i 

c„  +  comFi 

P"f 

Cp^^  *  comBi 


(3.52) 


(a/*aw%a;^a,%a;*a/ 

^  Act  Awr  +  Aiw  +  Ass  *  Ajt  +  Aji  )  *COmEl 
*  comm  *  comm  +  comsi  *  condfi  *  condbi 


(3.53) 


(3.54) 


r.  DZSCKITZUkTZOir  or  tb  nomemton  iqueutzon 

The  integrated  momentum  equation  is: 

(  p  U  M  t  V  +  Mi^A,  -  A^  wf  A„ 

-  W"A,  +  Mf^Af  -  Mi^A^  ■  5  ^ 
where  A,  are  the  face  areas  of  the  staggered  cell  given  by 
Equations  (3.14  -  3.16).  is  the  momentum  flux  in  the  6^^ 

direction  due  to  velocity  u^  convection  and  to  diffusion,  and 
is  given  by: 


■  (pu^u^-Oi) 


(3.55) 
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Included  in  the  source  term  are  pressure  gradient,  body, 
Coriolis  and  centrifugal  forces.  The  source  term  for  velocity 
u^  is: 


S-«-P,A  +P„A 

(3.56) 

-wj*  (A„-A,)  (A,«Ap)  ♦  (Afp”+Wp“)  (A.  +  AJ 

Yang,  et  al.  [Ref.  19:pp.  11-13]  describe  a  "stress  flux 
formation”  as  it  applies  to  a  curvilinear  coordinate  system. 
Stresses  are  evaluated  from  previous  Information  and  the 
source  is  given  in  the  current  information.  The  momentum  flux 
is: 


where : 


(3.57) 


7^ 


du' 

m 

l^Jj 

(3.58) 


mpu^uJ  -O} 

The  momentum  equation  for  velocity  u*  is  now; 


(3.59) 


(  p  U  ) ,  *  A.  -  fli' A.  ♦  A,  -  J9, 


12 


A,  +  /?“Af  ♦/?“Ap-S  (3.60) 


where; 


5-s  -  (0;-oi),A,  +  (0i-ai)^A„-  (®?-o?)„A„ 
(Ci-<T?).A,-  (ei-Oi  ),Af-  (Oi-Oi)pAp 


(3.61) 


40 


The  momentum  equation  for  0^  takes  a  form  similar  to  the 
energy  equation 


J  A +  P"*'  )  Up  *  A.“‘  u;  +  a:"  u  *  +  A“-  u  ■  +  A u; 

*Afuf  +  Ab’ub  +  S“‘u- 

Again  we  must  obtain  final  coefficients. 
Intermediate  mass  flow  rate  per  unit  area: 

G,. . ui.. ( , 

/Z  ■11^  J.l  ^  ^2^®*  )  J  *  Pl-1  (  ^2^®*  )  >1 

e  mu‘  *  PjAfl*  )  )*P)  (  )  ).,]  I 

(t  ■  It*  JPi-l,  j-l  ^  ^2^®*  ^  J '*■  Pi*l  ^  ^2^®*  )  M  ]  \ 

- - ( h,m ,  *  ( ii,AB’ ) - ’ 


,[p..i  (P-Ae>).*p.  (M®’) 
*  (h,A9‘).-  (p.A'9‘)„  " 


.1 


(3.62) 

Introducing 


(3.63a) 
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C,  •  ui'-i  I  [P.-i  <  P-.P9‘  I .  *  P.-i  <  *1^9*  >  »■] ) 
(ii,AS‘),*  (h,Ay  )„ 


C,. .  ui.  ,[p...<P3A9;).*P.y)...] , 

G,.  •  u^,.  { 1  f  ^  ^  1 } 

r:  ■  Ii3  I  [  P*’l  ^  ^3^®*  )  k  ■*■  Pk  (  ^3^®’  ^  k-1  ]  \ 

/r  •  |»^  /  [pi-l,k-l  ^  ^3^®*  ^  k '‘■Pl-l  t  ^3^®*  )  k-l]  \ 

®*'  - (A.A9»).Mh,A6^)... - ’ 


(3.63b) 


Final  mass  flow  rates  are: 


CF-.*  (G,  +  Gp)  •  (hjAe*)/  (A3Ae>) 
CW«i(G*GJ-  (h,Ae*)  •  (h,Ae») 


7  '«p 


CB-(h,A0M,- 


(3.64) 
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The  local  viscosity  is: 


VIS.  -  VIS 


VIS,*  VIS,., 

VIS  *  <  VIS  *  VIS,.,,  J.,  *  VIS,.,  ) 


VIS. 


(  VIS^.,  *  VIS  *  VIS,.,,  +  VIS,., ) 


yjs  .  <  VIS,. I  *  VIS  *  VIS,.,, *  VIS,., ) 


VlSfe- 


{  VIS,.,*  VIS  ^  VIS,.,,,.,  ^  VIS,.,) 


VISNl  *  VIS„  • 


VISSl  *  VIS,  • 


VISEl  -  VIS. 


VISWl  *  7IS„  • 


VISFl  «  VlSf  • 


VISBl  *  1^15^  • 


(hjAeM  (hjASM 
( iijAe* ) 

(hjAeM  (hjAGM 
- TWl - 

(hjAeM  (hjAeM 

— n;r2m — 

(hjA0M  (hjABM 

•(  h,  Ae^ ) 

(h,AeM  (hjAOM 


( h,Ad^ ) 


(hjAeM  (hjABM 

— rwi — 


(3.65) 


(3.66) 
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The  momentum  equation  coefficients  are: 


Afx* 

•ASt‘ 

Ui%i 

Aant 

wwwn% 

•aS„- 

u;-2 

Aim 

•ASh- 

U].2 

Ajjii 

•AS,- 

U).2 

Arm 

•ASr- 

U».2 

Aii* 

■Ai- 

Uk-a 

(3.67) 


As  with  the  energy  equation,  the  value  of  the  final 
coefficients  are: 


and 


Af“»A„  +  VIS£I 

aS^a„*viswi 

a;  ■  A*,  ♦  VJSNl 
Ajl^A„*VISSl 
A;fmA„*VISFl 
Ai^A^j*VISBl 


(3.68) 


a;  -  A^  *  AS  *  AS  ♦  AS  *  AS  *  AS 
*A^*ASi,*ASh*AS,*ASf*AS, 


(3.69) 
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The  final  source  term  is  given  as 


[p  (MeMj  .  av. 

“  [  (hiAeM^+  (hiAOM,]  *St 

+  (hjAOMj  (hjASM*  (Pi.i-Pi)  Atm  ”*■  ^]W« 

*Assr*Ai^*A„^  +  RE-RW*  N-RS 
*RF-RB*RRy*RRZ-RRy  BUOY 

•  {sin  [  ZC{K)  ]  •  (p-p^>  *  (hjAdM^ 

•  cos  (JfCd)  ]  )  +  {  (Pi-i-p^,,)  (^AOM, 

•  cos  (JfCd-l)  ]  }  /  [  (hiAeM^+  (hjAeM,]  Av 


(3.70) 


where  XC  and  ZC  represent  the  center  of  the  cell.  The 
remainder  of  the  terms  are  explained  below. 


RE^  (hjA0*).  (hjAeM,* 

R9tm  (hjAeM*  (hjA0M^- 

iW-  (hiA0M„  (h3A0M„* 
i?S»  (h,A0M,  (h3A0M,- 
RF^  (h;A0M/  (h3A0M/' 
«B«  (hiA0Mt  (h3A0Mfc- 


-  (  ui.i  -  ul )  •  VIS. 

— (W)': — 

oiii  -  {  u'  -  ul.i )  •  VIS. 

r5;;OTT3 

ojii  -  (  u].i  -  ui )  •  VIS, 

Qi*  -  (  -  uj.i  )  •  VIS, 

(hjAOM, 

oiJi  -  (  u*'.i  -  ui )  •  VIS, 
( hjAe^)  I 

o”  -  ( u'  -  ui.3 )  •  vis^, 
(hjAOMt 


(3.71) 
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0^2 «  ^  ( <,5ii  +  iTj  ) 

0^3  «  ^  { oi^i  +  0^^  ) 

0*2  (h,A8M,  +  o!!i  (h^AeM. 

*  (hiAeM^+  (iJxA^h. 

0»  (ii:Ae*),-^o52i  (AiA0M. 

*  (ii,AeM^*"  (iJiABM. 


AC71  -u’ 


AC72*{ 


uj.i  ( ii,Ae* ) ,  ♦  uj  ( JijAe* )  3 

- 5TWT1 - 


( hjAe^ ) 

Uj-i.  J«1  (  A^Ae* )  3 »  u|.i  (  h^Ae* )  J 


2  (  h,Ae* )  J 

/  [  (h,AeM^*  (hjAeM.J 


( AiABM.) 


AW*{ 


u»\i  (h,A0*)*  +  uJ  (AjAe»)» 


(ftiA0M 


^  [uf.,,..,  ( ).,A9‘ )  ul.,  (  h,Ae» ) , 

i  (h,A0^) 

/  [  (  h,A0'  )  ,*(  h,  A0* ),.  ] 


,o,  P  (^i:A0M^*Pi.i  (h:A0M, 

( AjAtth. 

ARC712  *AR'  AUl'  AU2 
ARU13^AR  -  AUl  •  AC73 
Ai?C722  =  Ai?  •  AC72  •  AC72 
A/?C733  »  AiR  •  AC73  '  Al/3 


(3.72) 


(3.73) 


(3.74) 
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(3.75) 


RRY^  {W^-ARU12)  (iijAeMj  (hjAeM,] 

RRZ^ia^^-ARUlS)  (hjAeMjl  (ii,AeM,“ 

RRX”  (W^-AUR22)  (hjAe^tt  ( hjAO* ) , “  ( M®*  >  J 

+  (^3 ^AUR33)  ( ftjAe* )  j  [  ( ftjAe’ ) .-  ( hjAe^ )  j 

Similarly,  momentum  equations  for  the  other  two  directions  may 
be  obtained  but  are  omitted  for  brevity. 

6.  PiaSSUM  COMUBCTZON 

In  the  finite  difference  scheme,  energy  and  momentum 
equations  are  used  to  solve  for  temperature  and  velocities. 
The  equation  of  state  and  continuity  are  used  to  solve  for 
density  and  pressure.  Doria  [Ref.  35]  states  that  pressure  is 
only  weakly  coupled  to  the  equation  of  state.  Therefore, 
updated  temperatures  and  pressures  determine  density  in  the 
equation  of  state  and  continuity  is  used  to  correct  pressure 
across  each  cell. 

As  discussed  earlier,  a  disadvantage  of  using  primitive 
variables  is  the  difficulty  in  calculating  pressure.  Two 
corrections  must  be  applied.  First,  a  global  pressure 
correction  accounts  for  changes  in  net  energy  of  the  closed 
system.  Second,  a  local  pressure  correction  accounts  for 
pressure  changes  causing  the  velocity  field. 

1.  Global  Prassura  Corraction 

Nicolette,  et  al.  [Ref.  3]  developed  a  correction 
scheme  for  a  two  dimensional  square  enclosure.  Raycraft  [Ref. 
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30]  modified  it  to  fit  the  geometry  of  Fire-1.  In  a  constant 
mass  and  volume  system,  the  overall  pressure  depends  on  the 
addition  or  removal  of  energy.  In  such  a  system,  the  sum  of 
all  the  cells'  computed  density  times  its  volume  is  equal  to 
a  constant  total  mass.  At  any  time  during  a  run  the  mass  must 
equal  the  total  mass  at  equilibrium.  Summing  over  N  cells: 

E  P"  (AVjj.J  p„  (AV)  (3.76) 

where  n  is  the  n*''  time  step  and  the  EQ  subscript  indicates  the 
equilibrium  point.  Assuming  that  air  is  an  ideal  gas,  its 
density  is  a  function  of  temperature  and  pressure  only.  The 
actual  values  of  both  consist  of  the  estimate  and  the  global 
correction: 


(3.77) 

+  (3.78) 

where  P’  and  T'  are  the  estimates  and  P,'  and  T,'  are  the  global 
corrections  using  the  ideal  gas  law  and  Equation  (3.76) .  The 
global  pressure  correction  becomes 


K  ■ 

''av  av'^ 

-El 

p-m 

T'l 

7 

(3.79) 


Mass  is  conserved  for  each  cell  when  an  accurate  final 
pressure  is  obtained. 
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2.  Local  Prasaura  Corraction 

Patanker  [Ref.  36:pp.  120-126]  and  Dor-ia  [Ref.  36:pp. 
26-32]  developed  a  procedure  for  obtaining  the  local  pressure 
correction.  As  in  the  global  correction  scheme,  a  pressure 
field  is  estimated  from  the  previous  time  step.  Velocities  are 
calculated  according  to  this  pressure  distribution  and  the  law 
of  continuity  is  applied  to  each  cell.  If  the  residual  mass 
term  S«p  approaches  zero,  then  the  estimated  pressure  field  is 
satisfactory.  If  not, a  local  correction  is  calculated  and 
applied  to  the  original  estimate.  The  new  pressure  field  is 
used  to  compute  a  corrected  velocity  field  and  the  residual 
mass  Sg,p  is  rechecked.  The  process  repeats  itself  until  S^p  is 
an  acceptably  small  value.  As  in  the  global  correction,  the 
actual  local  pressure  is: 

p*p»  +  p'  (3.80) 

where  P’  is  again  the  estimate,  usually  the  pressure  of  the 
preceding  iteration,  and  P'  is  the  local  correction.  Putting 
this  correction  in  typical  finite  difference  form: 

ApPp  »  Aj.Pe  +  A^P'm  +  AjjPw  +  AgP's  *  A^P'r  ♦  AgPg  -  5,pAV  (3.81) 
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where : 


p.-  [  (hjAeM  (MOM  ]l 


p„*  [  < 

A»“'  +0 
^...  P.-5fJ 

hjAe*)  (hj^ 

It 

p„*  [  (JiiAOM  { V 

iOM  It 

p,*  [  (hjASM  {h,i 

ie>)  iJ 

[»"*A 

h  ‘^'TshJ 

p,-  [  (iiiAOM  (hji 

ie>)  i5 

Pb*  [  ( 

.u3  .  A7 
^'75F, 

hiASM  (ii,i 

^e*)  ]i 

AV 

•2SF 


A-  ■  A|.  +  A„  ♦  A„  +  A,  +  A,.  +  A, 


Corrected  velocities  are: 


u*  ■  u** 

y3  B  y3» 


♦  U 


3' 


(3.82) 


(3.83) 
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where : 


u*  * 


u' 


(P  +PJ  (h,A0M  {h,A0M 


AV\ 

I""'  "^•'•3?) 


(P  +P,)  (hiA0M  (M0M 


AV 

"p-*se) 


u' 


(P*Pt)  (M®M  (M®M 


(3.84) 


Again  S^p  Is  computed  using  continuity.  If  the  residual  mass 
is  within  a  satisfactory  range,  the  calculation  is  finished. 
If  not,  another  iteration  takes  place. 
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IV.  mniERzaa.  process 


K.  IHTRODUCTXOII 

Temperature,  velocity,  pressure  and  density  fields  are 
produced  by  the  code.  Input  parameters  are  initial  conditions, 
fuel  heat  release  rate,  fire  location,  geometry  and  material 
characteristics  such  as  fluid  properties,  wall  properties  and 
the  external  heat  transfer  coefficient.  These  are  listed  in 
Table  4.1. 


SOLI  4.1  NOOIX.  PARMUTIRS 


Material 

Thickness 

Specific  Heat 

Thermal  Conductivity 

Density 

External  Heat 
Transfer  Coefficient 


Burn  Rate 

Initial  Temperature 
Initial  Pressure 
Location  of  Fire 


ASTM  285  Grade  C  Steel 

3/8  inch 

0.1  BTU/  (lbm*F) 

25  BTU/(hr»ft*F) 

487  Ibm/ft* 

15.0  BTU/(hr»ft**F) 

. '  "  ’  '  y%v' 

'  ‘  A' ^  ^  * . :  xSx«  x : !  : 

Function  provided  in  program 

35.6-C 

1.0  ATM 

Center  of  Fire-1 

23.1  ft.  from  each  endccap 

3.21  ft.  from  bottom 


Figures  4.1  and  4.2  show  the  spherical/cylindrical  grid 
used  by  the  model.  Endcaps  are  spherical  with  0,  R,  and  (|> 


52 


rigur«  4.1  Front  Viow  of  Con^tor  Modal  (YZ-Plana) 
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$ 


directions.  The  cylindrical  midsection  have  6,  R  and  Z 
directions.  There  are  14  cells  in  the  R  direction,  one  at  R=0 
for  avoiding  singularity  and  one  used  as  the  vessel  wall. 
There  are  20  cells  oriented  clockwise  in  the  0  direction.  Each 


endcap  has  six  cells  in  the  <|>  direction  with  a  cell  again  at 
zero  to  avoid  singularity.  The  midsection  has  18  cells  in  the 
Z  direction  {<»  is  used  for  simplicity).  Table  4.2  gives 
information  on  grid  parameters. 


TABU  4.2  ADPZTIOMAL  NODBL  PABMIBTBRS 


Number  of  interior  cells 

Number  of  wall  cells 

Number  of  wall  radiation  zones 

Number  of  fire  radiation  zones 

Number  of  cells  in  R  direction 

Number  of  cells  in  0  direction 

Number  of  cells  in  direction  (per  endcap) 

Number  of  cells  in  Z  direction  (midsection) 

Time  step 

VAXSTATICN  3100  CPU  time  (1  CPU  hour) 


6,720 


0.0288  sec 

0. 8-1.0  sec 
Fire  Time 


B.  SOLUTION  PROCESS 

The  model  contains  two  separate  programs.  The  first 
authored  by  Raycraft  [Ref.  29]  calculates  the  view  factors  for 
surface  radiation.  It  produces  a  matrix  of  view  factors.  It  is 
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used  only  once  and  its  values  are  stored  for  use  whenever 
called  by  the  second  program. 

As  described  by  Nies  [Ref.  21],  Raycraft  [Ref.  29]  and 
Houck  [Ref.  30],  the  main  program  uses  finite  difference 
methods  described  previously  to  estaOalish  temperature, 
velocity,,  pressure  and  density  fields.  Initial  parameters  and 
the  view  factors  are  first  read  into  the  program.  Geometry  of 
the  grid  is  then  calculated  and  the  fields  are  set  to  initial 
conditions.  Next,  effective  viscosity  is  computed  in 
subroutine  CALVIS.  Every  two  time  steps,  surface  radiation 
flux  is.  recalculated  in  subroutine  RADHT.  Subroutines  CALT, 
GLOBE,  CALU,  CALX,  CALW  and  CALP  calculate  temperature,  the 
global  pressure  correction,  the  velocities  and  the  local 
pressure  correction.  Using  the  corrected  velocities, 
continuity  is  applied  to  each  cell.  If  the  residual  mass 
RESORM  is  greater  than  10.0  the  program  is  unstable  and  stops. 
A  smaller  time  step  must  be  used.  If  RESORM  is  greater  than  a 
set  tolerance  level  then  the  program  iterates  solution  by 
recalculating  velocities  and  pressures.  Iterations  continue 
until  1)  RESORM  is  below  tolerance  levels,  solution  is  reached 
and  the  program  proceeds  to  next  time  step;  2)  the  maximum 
number  of  iterations  is  reached,  or  3)  RESORM  is  greater  than 
10.0  and  the  program  is  stopped. 
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C.  GRAPHICAL  ANALYSIS 

The  use  of  CA-DISSPLA”  [Ref.  31]  has  posed  some  difficult 
problems.  The  output  from  the  computer  model  is  in  the 
spherical /cylindrical  coordinate  system  created  to  simulate 
Fire~l.  This  output  must  be  converted  to  cartesian  coordinates 
in  order  to  be  manipulated  by  CA-DISSPLA".  Even  after  the 

9 

conversion  is  completed  the  resulting  irregularly  spaced  grid 
*  must  be  interpolated  into  a  regularly  spaced  grid. 

After  some  experimentation  with  grid  interpolation 
schemes,  a  group  of  CA-DISSPLA”  subroutines  are  used  to  create 
a  regularly  spaced  matrix.  These  subroutines  interpolate 
values  from  a  set  number  of  neighbors.  Care  must  be  taken  in 
choosing  a  grid  size  to  ensure  distortion  of  the  field  values 
does  not  occur  and  to  ensure  that  the  software  will  not.  zero 
data  points  with  few  close  neighbors.  A  relatively  course  grid 
has  been  chosen  (50  x  50  x  100)  for  graphics  output.  New  data 
points  created  outside  the  enclosure  have  been  set  to  ambient 
values  to  minimize  distortion  at  the  boundaries. 

The  VAXSTATION  3100  has  proven  to  be  an  excellent  machine. 
It  has  good  numerical  speed  coupled  with  very  sharp  graphics 
capabilities.  Future  research  of  this  numerical  model  has  been 
greately  enhanced  by  the  incorporation  of  this  workstation. 

The  following  figures  are  temperature  and  velocity 
profiles  for  times  of  30,  60,  and  90  seconds.  They  are  two 
dimensional  images  of  three  dimensional  phenomena.  Each 
figure,  whether  temperature  or  velocity,  presents  an  axial 
view  (XY-plane)  of  the  tank  at  the  midplane  and  a  longitudinal 
view  (YZ-plane) ,  again  at  the  midplane. 
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Raycraft  [Ref.  29]  and  Houck  [Ref.  30]  detailed  the 
validation  of  the  code  against  experimental  data  of  Fire-1. 
They  also  discussed  such  phenomena  as  the  fire  plume,  pressure 
effect,  temperature  stratification,  and  velocity  fields.  Much 
of  their  analysis  will  not  be  repeated  here.  Instead,  the 
effects  of  local  numerical  perturbations  will  be  discussed. 

Raycraft  [Ref.  29]  observed  remarkable  symmetry  in 
temperature  and  velocity  profiles  throughout  the  entire  trial. 
Houck  [Ref.  30]  also  observed  the  expected  asymmetry,  after 
implementing  forced  ventilation  in  two  locations.  In  this 
thesis,  these  ventilation  equations  are  not  removed.  The 
additive  v'slocitles  were  simply  set  to  zero.  As  seen  in 
Figures  4.3  to  4.8,  a  marked  asymmetry  similar  to  that 
observed  in  Houck  [Ref.  30],  has  developed  and  is  readily 
observed  in  both  temperature  and  velocity  profiles.  This  is 
despite  the  fact  that  the  effects  of  ventilation  have  been 
supposedly  negated.  After  the  millions  of  calculations  done  by 
the  computer  to  provide  solutions,  terms  in  the  ventilatlbn 
equations  which  are  set  to  zero  have  greatly  effected  the 
entire  field. 

Color  graphics  have  greatly  enhanced  ability  to  observe 
phenomena  in  the  temperature  fields.  Temperatures  can  be 
quickly  determined  using  the  color  legend,  as  Figures  4.3, 
4.5,  and  4.7  show.  These  figures  have  been  printed  on  a 
Tektronics  4693D  color  printer  and  exhibit  excellent  clarity 
and  resolution. 

Three  dimensional  vector  field  representation  of  the 
velocity  fields.  Figures  4.4,  4.6  and  4.8  can  only  be 
represented  in  two  dimensional  form  for  this  geometry.  Results 
become  confusing  if  three  dimensions  are  shown. 
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TEMPERATURE  PROFILE:  30  SEC 
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Figure  4.3  Temperature  Profiles  at  30  Seconds 
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Fxgure  4.4  Velocity  Profile  at  30  Seconds 
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TEliPERHTURE  PROEILE:  60  SEC 
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Figure  4,5  Temperature  Profiles  at  60  Seconds 
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Figure  4.6  Velocity  Profile  at  60  Seconds 
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TEMPERRTURE  PROFILE:  90  SEC 
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Figure  4.7  Temperature  Profiles  at  90  Seconds 
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VELOCITY  PROFILE  90  SEC 


Figure  4.8  Velocity  Profile  at  90  Seconds 
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V.  CONCLUSIONS  AND  RSCOIMENDATIONS 


A.  CONCLUSIONS 


1.  The  acquisition  of  the  VAXSTATION  3100  SPX  XRJ19  Model 
38  workstation  with  its  blend  of  numerical  speed  and 
graphics  clarity  has  greatly  enhanced  the  research. 

2.  The  ventilation  equations  incorporated  into  the  model 
in  the  previous  thesis  have  a  great  effect  on  the 
entire  field  even  when  their  output  velocities  are  set 
to  zero. 

3.  Color  graphics  have  provided  an  excellent  means  for 
presenting  temperature  profile  data.  Coupled  with  the 
Tektronics  4693  color  pra.nt,  CA-DISSPLA"  Graphics 
Software  provides  researchers  with  an  excellent  tool 
for  displaying  scaler  data  fields. 

4.  Three  dimensional  vector  fields  are  difficult  to 
present «  ambiguous,  and  must  be  reduced  to  two 
dimensional  images. 


B.  RICOMNENDATIONS 


1.  Removal  of  the  ventilation  equations  is  required  to 
regain  symmetry  observed  .in  previous  research.  These 
equations  are  effecting  the  entire  field  although  their 
additive  velocities  have  been  set  to  zero. 

2.  More  sophisticated  physical  models  need  to  be 
formulated  and  incorporated,  such  as  turbulence, 
gaseous  radiation  and  combustion. 

3.  Streakline  analysis  in  three  dimensions  should  be 
conducted  to  show  the  path  taken  of  an  individual  fluid 
particle  as  it  leaves  the  flame  area.  This  method  may 
reveal  more  of  the  fluid  dynamics  than  current 
representations  of  velocity  vector  fields. 

4.  The  ultimate  goal  of  this  project  is  to  develop  a  model 
which  can  predict  behavior  of  fire  in  shipboard 
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situations,  for  example,  changing  the  geometry  to  fit 
machinery  spaces  and  berthing  compartments,  this  will 
offer  designers  a  valuable  tool  for  the  construction  of 
safer  ships  and  submarines. 
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C  •••  C0NST6  :  REFERENCE  ’/ZIOCITY  (CM/S) 

C  CONSRA  :  rA*«3/ (RA«C?»'J0«H*H) 

C  NTRWR  :  NTREAL/NWRITE'NWRITE 
C  •••  NTRWA  :  NTREAL/NWALfNWALT 

C  •••  HCONV  :  HEAT  TRANSFER  COEFFICIENT  ON  THE  AMBIENT  (3T0/H.FT**2K) 


C  •••  RAO,H;  RADIOS  OF  THE  CYLINDRICAL  AND  SPHERICAL  SECTIONS 
C  CYL  ;  LENGTH  OF  THE  CYLINDRICAL  SECTION  OF  THE  TANK 

C  •••  NI  ;  TOTAL  NUMBER  CELLS  IN  THETA-DIRECTION 


C0006200 

00006300 

00006400 

00006500 

00006600 

00006700 

00006600 

00006900 

00007000 

00007100 

00007200 

00007300 

00007400 


C  •••  HSZ(1,1),HSZ(1,2) 
C 

C  HSZ(2,:),HSZ(2,2) 

C 

C  HSZ(3,:),H8Z(3,2) 


R-DIRECTION  00007300 

Z  AND  PHI-DIRECTIONS  00007400 

FIRST  NUMBER  Z-DZRECTION,  ALONG  THE  CYLINDER  AXIS00007500 
LAST  N(MBER  Z-DIRECTION,  ALONG  THE  CYLINDER  AXIS00007600 


FIRST  AND  UST  COORDIANTE  OF  HEAT  SOURCE 

IN  X-DIRECTION  (IN  DIMENSIONLESS  FORM) 
FIRST  AND  LAST  COORDIANTE  OF  HEAT  SOURCE 

IN  y-DIRBCTION  (IN  DIMENSIONLESS  FORM) 
FIRST  AND  LAST  COORDIANTE  OF  HEAT  SOURCE 

IN  Z-DIRECTION  (IN  DIMENSIONLESS  FORM) 


C  *•*  ICKPBO  :  STARTING  NODAL  NUtSER  FOR  SOLID  IN  THETA-DIRECTION 


C  JCHPBO 

C  KCHPIO 

C  NCHPIO 

C  NCHPJO 

C  NCHPXO 


R-DIRECTION 
Z  OR  PHI— DIRECTION 

NUMBER  OF  NODALS  FOR  SOLID  IN  THETA-DIRECTION  " 

R-DlRECTION 
Z, PHI-DIRECTION 


optn (21»  Input .die' , stitui*'  old' ) 

C  l«666«6UC««6l6«««6«fi«6«««66666IC6666666«6««l6CC«Ct66ttC6«ll«CI 
C  INPUT  DATA  6 

C  limiCIICtllllllllllllllltllllCIIICIIIICAICIIIISICCIICCCIICIII 

Hrlt«(f,*)'eillln9  input' 

CALL  INPUT 

C  «6«6C66C««6«««64«C66t6«66««666ll6l66666666666l6«666l6(««l<6t666 

flMiyaiTS'  natn  evc-tw  t 

C  6i666666666<6«66666666«««l6666666«666«66«66666«6666«6«6C66l6666 

writ«(6,*)  'eiilino  grid' 

CALL  GRID 

C  •••  READ  VIEW  FACTOR  IN'/ERSE  MATRIX  ♦ 

eptndl,  Iil«-''v!tw.ait'  ,statuta*'old' ) 

00  225  ii:-:, 579 
oo  225  ill-:, 579 
225  riidC:,’)  vtmxcCi:,  ijj) 

CLOSE  (11) 

C  INITIALIZE  THE  WHOLE  FIELD  6 

writs (6,*)  'dicing  ir.lt' 

CALL  IN IT 

C  START  CALCULATION  S 

NT-C 
NTIM«C 
xtir.e-C.I 
3C0  CONTINUE 
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N'TMAXO  HAS  THE  MEANING  AS  "NTREAL"  WHEN  IT  IS  HEAD  FROM 
SISK  OR  TAPE. 

;?(xt:xe  .gt.  tmax)  go  to  303 

NTREAL-NT+NTMAXO 

t:me-t:me+dtime 

XTIMS-TIME*H/UO 
r.xrir.**  jlnt  (xtlme) 
rxwrit» jint (twrltt) 
writt(6r*)  'elm*  in  stconds"' ,xtimt 
writt(€>*)  '  int  cimt«',nxtiin« 
wrlt«(6(*)  'int  tlmt  for  writing"' >ntwrlt 

C  CALCUIATE  THE  TRANSIENT  HEAT  INPUT  4 

C  NOTE  :?  1  IN  PARENTHESIS,  THE  BURN  RATE  IS  CALCULATED  4 

C  BY  THE  PRESSURE  CURVE.  IF  EQUAL  TO  TVK),  THE  BORN  RATE  4 

C  CURVE  IS  EITHER  GIVEN  OR  ESTIMATED  4 

04444444444444444444444444444444444444444444444444444444444444444 

writ«(6,*)  'exiling  caig' 

CALL  CALQ(2) 

C  START  CALCULATION 

ITER-0 

-'TERM-O 

JJTERM-0 

C  DEFINE  THE  UPDATED  TPD(I,J,K>,  CPOd,  J,K»  ,RPD<I,  J,K) 

C  U?0(:,w*,X)  AND  VPD(I,J,K)  FOR  THE  USE  OF  CALVIS  AND  SU{I,J,X) 

DO  41  X-l.NKPl 
DO  48  J-1,NJP1 
DO  41  I-l.NIPl 
7?0(I,J,X)-T(I,J,K> 

CPD(I,J,X)-C(1,J,X) 

R?D(:,:,X)-R(I,J,X) 

u?D(:,j,x)-u(:,j,x) 

v?o(:,J,x)-v{:,j,x) 

XPD(:,J,X)-W(I,J,K) 

41  CONTINUE 
29  CONTINUE 

:term-jterm*i 

301  CONTINUE 


0(444444444444444444444444444444444444444444444444444444444444444 

0  CALCULATE  THE  RADIATION  HEAT  FLUX  AT  E'v’ERY  SRAD  TIME  STEPS  4 

044444444444444444444444444(4444444444444444444444444444444444444 


NRAD  -  2 

IF  (X03(NT,NRAD) .NE.O)  GOTO  4000 
CALL  RADHT{T4WALL,VFMXC) 

4000  CONTINUE 

0  CALCULATE  THE  TEMPERATURE  * 

•write(6,*)  'caxiir.q  exit' 

CALL  CALT 

044444444444444(444(44444444444444444444444444444(444444444444444 

0  CALCULATE  THE  SMOKE  CONCENTRATION  4 

044444444444444444444444444(4444444444444444444444(4i<i&‘<'«*&<>&&&^ 

'cabling  ca.c' 

•  n  T  -  ^  X  T  ^ 


^0  2w<.w  w*»,No? * 


000127CC 

00012800 

00012900 

0001300C 

00013100 

00013200 

00013300 


00013400 


C0013500 

00013600 

00013700 

00013800 

00013900 

00014C00 

00014100 

00014200 

00014300 

00014400 

00014500 

00014600 

00014700 

00014800 

00014900 

00015000 

00015100 

00015200 

00015300 

00015400 

00015500 

00015600 

00015700 

00015800 

00015900 

00016000 

00016100 

00016200 

00016300 

00016400 

00016500 

w  WW  *  V  t 
vww  *OOww 
^  W  W  *  V  7w  w 
WWW*  <  w  w  w 

AMA.  T*  AA 
WWW*  '  • W  W 

00017200 

00017300 

AAA, T/AA 

WWW  *  f  h  w  w 
AAAI TSAA 
WWW*  'WWW 
AAA. T£AA 

WWW* 'WWW 

00017700 

00017800 

AAA*  TQ.'A 
WWW* 'WWW 


I  w  w  w 
AAA*0*  **A 
WWW*W*WW 
AAA. AAAA 
WWW  *04w  w 

00018300 

00018400 


AAA*  fl*AA 
WWWlWwwW 
AAA. Q£AA 
wwUxCvwu 
AAA. AAAA 
W  W  W  *  W  >  W  W 
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30  2000  :»i,NIPl 
30  2000  K-1,KKP1 

IF(T(1,J,K) .LT.TCOOL)  T<I, J,K)-TCOOL 
2000  CONTINUE 

C  QLOBLE  PRESSURE  CORRECTION  FOR  ENCLOSED  TANK  AIR  % 

wxlt«(€«*}  'eallln?  9lobt' 

CALL  GLOBE 

cfiifsiiiiHtisiieBeiBiiiiitiiiBisiifiiitiiiieissiifsissiiisisiae 

C  CALCULATE  THE  TURBULENT  VISCOSITY  AND  CONDUCTIVITY  I 

ClllllflllfIBIIIIIIIIIIIIIIIIIIIIIIIISIIIIIIIIIIIIOIBIIMIBIIIIIS 

'eallino  calvis' 

CALL  CALVIS 


••••*. ••••••«********«.****«.i*»****»****»*****«**«*** 

C  CALCULATE  THE  DENSITY 

cut**.*......#..... 

DO  100  J-1«NJP1 
DO  100  I-1,NIP1 
DO  100  X-1,NKP1 
IF  (NOD(I,J,X).EQ.l)  GOTO  100 
AAAA-BU0Y*U6RT*HEI6HT (I, J, X) 

R(I,J,X)-(UGRT*P(I,J,X)4(1./EXP (AAAA)))/T(I,J,X) 

100  CONTINUE 

CSSSSSSSSISSSUSSSISISSItSIIStttItlSSISISISSItlSSSSSSSSilStSISSIIS 
C  CORRECT  CONDUCTIVITY  OF  THE  SOLID  S 

CStSSSSSSItSSSSSSSSSSSSSSSSSSSSSSSttlllStSSSSSSStSSSSSSIStStISfIS 

;F  (NCHIP.SO.O)  goto  410 
weit«(S(*)  'eallino  toleon* 

CALL  SOLCON 
410  ceWTINUE 


C  START  PRESSURE  CORRECTION  ITERATIVE  LOOP,  IT  IS  THE  HAJOR  % 
e  PART  OF  THE  ERROR  CONTROL  ROUTINE  « 

ITER-ITER^l 

ClllSSIIItfSIlllSIllSSIIIIISIIIIISIISIIIItlSISIIIISIISSIISSIIIISI 

C  CALCULATE  THE  VELOCITY  U,V,AND  N  9 

CtltlSIlllSISISISISIIISISSISSflSIllSIMlillSISISSSIISIffllSISSBSI 

wri;:e(€,*)  'stilLr.q  valeeltitt' 

30023CCC 

/•A*  ♦  •  •• 

WfWAtf  wAwW 

c  CALL  STRESS 


CALL  CALV 
e  CALL  STRESS 

C  ••• 

CALL  CALN 

wrlt«(€,*)  'wfand)-' ,wfan(l) 
C  CALL  STRESS 


C$$S$$SSSS$$SSSSSS$$$$$SSSSSSSSSSS$S$$S$$S$$SS$SSSS55SS5SSSSS$5S$ 
C  CALCULATE  THE  PRESSURE  AND  STRESS  & 
CS5SSS$SS$$S5$SS$S$$SS$S$S$SSSS$SSSS$$$S5S$$$S$$S$S$SSSSSSSSSSS$$ 


C0018800 

33018900 

C0019000 

30019100 

30019200 

30019300 

30019400 

00019500 

30019600 

00019700 

00019800 

00019900 

00020000 

00020100 

00020200 

00020300 

00020400 

00020500 

00020600 

00020700 

00020S00 

00020900 

00021000 

00021100 

00021200 

00021300 

00021400 

00021500 

00021600 

00021700 

00021S00 

00021900 

00022000 

00022100 

00022200 

00022300 

00022400 

00022500 

00022600 

00022700 

33022800 

30022900 


30023:33 

00023233 

30023333 

30023430 

C0023SC3 

30023633 

00023700 

30023800 

33023900 

33324333 

30024133 

30024333 

33024433 


«rite(6,'')  'calling  calp' 

CALL  CAL? 

CALL  STRESS 

c  :r  SOURCE  term  :s  larger  than  ic.o,  stop  program  4 


=  A  A 

9ww 

aaaa//?aa 

00024700 

0C024DCO 

00324930 


* 
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0%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%**%*%*** 

:f  (aisoRM(i7Ea).GT.:c.o>  goto  2020 


ItCRESCRMdTSa)  .LE.  SORMAX)  GO  TO  49 
lEdTER  .£Q.  :>  GO  TO  302 

:termi»:ter-i 

ItCRESORMdTER)  .LE.  RESORMdTERMl) )  GO  TO  302 
60  TO  304 

302  1F(J7ER.M  .G£.  2)  GO  TO  37 
SOURCS-RESORMdTER) 

60  TO  39 

37  ZF(RESORMdTER)  .LE.  SOURCE)  60  TO  38 
60  TO  304 

38  SOURCE-RESORHdTER) 

39  cokt:kl’e 

e  WRITE («,9S)  ITER, RESORM (ITER) , SORSUM 

95  FORMAT <53X, ' ITER-» ,  :2,2X,  'SOURCE-' ,F9.6,2X, 'SORMUP-' ,F9.6) 

00  23  X-1,NKF1 
DO  23 

DO  23  :-l,NIPl 
TPOd,J,K)-Td,J,K) 

CPOd,J,K)-Cd,J,K) 

RPO(:.J,X)-Rd,J,K) 

UPD(:,J.X)-Ud,J,K) 

VPOd,J,X)-Vd,J,K) 

NPDd,.'.X)-Nd.J,X) 

PPDd.J,X)-Pd,J.X) 

23  CONTINUE 
JJTER.M-0 

IFdTER  .EQ.  ITMAX)  GO  TO  49 
IF(JTSRN  .EQ.  2)  60  TO  35 
IFdTER  .EQ.  4)  60  TO  29 
35  CONTINUE 

IF(JTSRM  .EQ.  3)  GO  TO  51 
IFdTER  .EQ.  7)  60  TO  29 
58  CONTINUE 
J.TERM-0 
50  TO  301 
304  CONTINUE 

JJTER.y-UJTERM+1 

c  IFCJJTERM  .EQ.  1)  WRITE(6,95)  ITER, RESORM (ITER ) .SORSUM 

IF(JTERM  .EQ.  1)  GO  TO  41 

I?(JTERX  .EQ.  2  .AND.  JJTERM  .EQ.  1  .AND.  ITER  .NE.  5)  GO  TO  41 

MM  IP^  PM 

SfW  aW  946 

41  CONTINUE 

:o  4C  K«:,NK?: 

30  40  ;-:,xj?i 
30  40  :«i,Ni?: 

R(I,J,:<)-RPD(I,  J,K) 

U(I,J,y.)-0PD(I,  J,K) 

V(I,J,y)-VPD(I, J,K) 
w(i,--,:')-wP0(:,j,K) 

?(i,j,:<)-?po(i,  j,K) 

40  CONTINUE 


CC025CCO 

aWW 

C00252C0 

0002S3CO 

G00254C0 

00025500 

00025600 

C00257C0 

00025800 

00025900 

00026000 

00026100 

00026200 

00026300 

00026400 

00026500 

00026600 

00026700 

00026800 

00026900 

00027000 

00027100 

00027200 

00027300 

00027400 

00027500 

00027600 

00027700 

00027800 

00027900 

00028000 

00028100 

0002820C 

00028300 

00028400 

00028500 

00028600 

00028700 

00028800 

00028900 

00029100 

00029200 

00029300 

vwpyi  w 

WWWParStfW 

w  w  w*  7  '  w  w 

AAMMAAMM 

w  vw4C77ww 

00030000 

00030100 

00030200 

0003C3CO 

00030400 


IFdTER  .EQ.  ITMAX)  GO  TO  49  00030500 


MM  ««»M  a  a 
\asj  •w  £7 

N/WV'JVOVW 

VW.W  • 

30  43  ?»1,NKP1 

wUW JwOww 

30  43  :-l,NJ?l 

A  MM  a A  MM  A 

www Jw  7w V 

30  43  :*:,Nipi 

AMM1*  AMA 

T(i,j,;<)«TP3(:,  j,K) 

00031100 

c(:,u,:<)«c?3(:,u,K) 

AMM^*  MAM 

R(i,u,:<>»RPD(:,  j,K) 

AAA^*  ^-A 

uc,  j,;<)»u?3(:,  j,.<) 

AAA'S*  /  AA 

v(i,  J,;<)*VP3(:,  j,x) 

AAM^«  ZAA 

w(i,u,:<)=wPD(:,u,K) 

AAAM* 

?(i,u,:<)-??D(:,  j.K) 

AAA'S*  -SAA 
SJ^JSJ  ^  m  '  W  W 
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O  O  €%  €% 


<3  CONTINUE 

IF t ITER  .EQ.  ITMAX)  GO  TO  49 

I?({JTERM  .EQ.  3  .AND.  ITER  .NE.  8)  .OR.  JJTERM  .EQ.  2)  GO  TO  49 
GO  TO  3C: 

49  CONTINUE 

ITERT“ITSRT+ITER 

#•♦#•••#•♦#♦#•####•#•######♦#♦•♦###••##♦•#♦♦♦#♦♦####•♦#••»•#*#*# 

GO  TO  THE  PRESSURE  TRACKING  SUBROUTINE  , PRINT  OUT  * 

RESULTS  IF  AT  THE  RIGHT  TIME  INTERVAL  * 

writ«{€,*)  'calling  ptraek' 

00032900 

CALL  PTRACX 

IF  (NOD(ntraal>NMRP).£Q.O)  CALL  OUT (1) 

C  FIND  TEMPERATURES  AT  THERMOCOUPLE  POINTS  AND  PRINT  OUT  % 

C  IF  AT  THE  RIGHT  TIME  INTERVAL  « 

If  (ntheo.aq.O)  goto  2422 
CALL  TCP 

IF  (HOO(NTRSAL,NMRP).EQ.O)  CALL  OUT (2) 

2422  CONTINUE 

IF  (MOOInxtlma.ntwtit) .EQ.O)  CALL  OUT (3) 

00034100 

C  !F(NTREAL  .£3.  N7REAL/NNRIT£*NNRITE)  CALL  OUT (3) 

'  303  CONTINUE 

IF((XTIME+OT:ME‘H/00)  .GE.  TMAX)  go  to  27? 


C  CALL  TlEFTdT) 

C  123  FORMATS  ITIEFT  •  *,110) 

C  ITO-IT 

C  IFdT.LT.ITLEFT)  CALL  00T(3) 


•••  RESET  THE  OLD  TIME  VALUES  TOO,  ROD,  UOD,  VOD  A.N3  lOD. 

DO  303  X-1,NXP1 
DO  303 

DO  305  i-:,x:pi 
TOOII,U,X>»Td,J,X) 

cood.j,x)«c(:,j,x) 

ROOd,J,X)-Rd,J,K> 

wOD d , w , K ) * w ( • , w ,  K)  * 

voD(i,j,:<)»v(:,w,.<<) 

MODd,J,X>«W(:,w,i<) 

PODd,-*,K)-?(:,U,K) 

305  CONTINUE 


THIS  WRITING  IS  FOR  PLOTTINGS 

I ) ) !  j  ]  1 1 : ; : : ; : : :  1 :  ■ ; :  ■ ! :  1  ]  1 ;  ]  ] !  J  J 1  ]  3  3  3  1  :  3  1  n  3  ]  3  n  ] : : : ; : ; : : : 

IF(NTREA1  .X£.  N:-REAL/NTAP£»NTAPE)G0T0  522 

:wFiTE»:o 

WRITE (9, >) 

4  *  I  MEL  X .  RstA^f,  .,R,  UfVfWfP,  CPM,COND,VIS,ORNET, ITERT.QCCRRT, 
i  H, TA, UC ,  CrXDC ,  V : SO , RnOO , N I , N J,  NX, N I? 1 , N JP 1 , NX? 1 , X :xi , X JX 
4  XC,YC,2';,X3,YS,ZS,3XXC,DYYC,DZ2C,DXXS,DYYS,DZZS 
WRITE (6  •)  'THE  TIXE  WHEN  THE  DATA  WAS  STORED  ON  DISK  IS: 
4  XTIME 


522  CONTINUE 


?x: , ?M2 

I.XXMl, 


03031800 

00031900 

00032000 

00032100 

00032200 

000323C0 

00032400 

00032500 

00032600 

00032700 

00032800 


00033000 

00033100 

00033200 

00033300 

00033400 

00033300 

00033600 

00033800 

00033900 

00034000 


00034200 
00034300 
00034400 
00034500 
00034600 
00034700 
00034800 
00034900 
00033000 
00033100 
00035200 
0003S300 
00035400 
00033500 
00033600 
00033700 
00033800 
00035900 
00036000 
00036100 
00036200 
00036300 
0003640C 
00036500 
00036600 
00036700 
00036800 
00036900 
00037000 
00037100 
00037200 
00037300 
,  000374? 

00037600 

00037700 

00037800 

00037900 

^ V w  vDUw w 
w  WW  Jv  * W  w 

00038200 

wv  J  W 
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>  u  o  o  u 


CALL  TLEFTCT) 
IFdT.LT.ITLEFT)  GO  TO  166 


TIMREM  :S  USED  TO  CALCOLATE  THE  CPU  TIME  REMAINING  AT  NPS 

IF  ITIMREM(0,) .LS.80.)  GOTO  166 
do  222  k«l,nkpl 
do  222  i*l,nlpl 
do  222  j-l.njpl 

WRITE (9, 555)  t (1,  j, k) ,u (i, i,k) ,v{i, j, k) j,k> 


wsitt(9,$55)  p(i, j,k),epm(i, j,k),eond(i,  j,k),vit<i,  j,k) 
cone i nut 

wrlct (9| 5 56 )  c imo, qr , qeorre . pml , pmE , xxxkx 
writ* (9, 556)  h, ta, uO, eondO, visO,rhoO 

write (9,557)  ntraai,ni,nj,nk,nipl,njpl,nkpl,nlml,njml,nkml, itart 
writ«(9,S5€)  xe,yc,ze,xs,ya,i« 
writ*  (9,  SS€)  dxxe, dyye,  d»e,  dxxa,  dyya,  drza 
format(4<3x,al2.4)) 
forfflac(6(lx,al0.3)) 
formatdlK) 

REWIND  9 
GO  TO  300 
303  CONTINUE 
277  CONTINUE 


222 


555 

556 

557 


WRITE (6, 1111) 
1111  FORMAT(2X,'*« 
e  GO  TO  172 


THE  MAXIMUM  TIME  HAS  BEEN  REACHED  •*••■•',18) 


GOTO  172 
2020  CONTINUE 
WRITS  (6, ») 


00038400 

00038500 

00038600 

00038700 

00038800 

00038900 

00039000 

00039100 


C  •••  . . . 

e  16$  IF(NTR£AL  .NE.  NTREAL/NTAP£*NTAFE)  than 
e234567 

do  223  k>l,nkpl 
do  223  i«l,r.ipl 
do  223  ^l.n’jpl 

WRITE (9, 555)  t<.,  J,k),u(i,  j,k),v(i,  j,k),w(l,  J,k) 
wrlta\9,555)  p(l, J,*) ,cpm(l, J,k),cond(i, 3,k) , vi»(i, j, k) 

223  contlnua 

wr  1  ta  ( 9 , 5  5  6 )  t  lr.a ,  or ,  qeor rt ,  pml ,  pm2 ,  xxxxx 
write (9,556)  n, ta, uO, eondO, viaO, rhoO 

write (9, 557)  r.iraai,r.i,nj,r.k,nipl,njpl,nkpl,r.iml,r.:.T.l,r.kml,  itert 

writa(9,^56)  xc,yc,zc,HS,ys,ta 

write {9,3  56)  axxc, ayyc, or re, oxxe, oyye, dzte 

REWIND  9 


00039200 

00039300 

00039400 

00039500 

00039600 

00039700 

00039800 

00039900 

00040000 

00040100 


RESIDUAL  MASS  IS  LARGER  THAN  IC.O,  PROGRAM  STOPS' 


y •  vw 

30040800 

OC0409CC 

000410CO 

00041100 


« 

172  CONTINUE 

STOP 

END 

00041200 

0004130C 

000414CC 

00041500 

000416QC 

00041700 

*  00041800 

-• 

5U3rout:x£  :n?ut 

00041900 

•  00042000 

c 

THIS  subroutine;  SETS  U? 

REQUIRED  VALUES  TO  BEGIN  Th 

S  PROGRAM. 

■00042100 

• 

VARIABLES  ARE: 

•CC0422CC 

« 

KRUK 

WHEN  EQUAL  TO  ONE, READ  r 

ROM  THE 

■00042300 

« 

RESTART  DISK,  ELSE  FROM 

T::E  JCL 

■00042400 

9 

SCHI? 

NUMBER  OF  SOLID  PIECES 

•00042500 

9 

SWRP 

NUMBER  OF  TIME  STEPS  TO 

WRITE  ON  THE 

•00042600 

9 

PAPER 

•00042700 
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NTHCO 

TMAX 

TWRITE 

TTAPE 

DTIME 

HSZ 

ICHPB 

JCHPB 

KCHPB 

NCHPI 

NCHPJ 

NCMPX 

cx,cy,cz 


NUMBER  OF  THERMOCOUPLES  TO  PRINT  OUT 
MAXIMUM  TIME  ALLOWED  (REAL) 

SECONDS  IN  REAL  TIME  TO  PRINT  THE 
P,V,T  FIELDS  ON  PAPER 
TIME  INTERVAL  TO  WRITE  ON  THE  TAPE 
TIME  STEP  (DIMENSIONLESS) 

HEAT  SOURCE  SIZE,  USED  TO  CALCULATE 
THE  \^LOME  OF  THE  FIRE  CELL 
FIRST  SOLID  NODE  IN  THETA  DIRECTION 
FIRST  SOLID  NODE  IN  R  DIRECTION 
FIRST  SOLID  NODE  IN  PHI  DIRECTION 
NUMBER  OF  MODES  IN  THETA  DIRECTION 
NUMBER  OF  NODES  IN  R  DIRECTION 
NUIOER  OF  NODES  IN  PHI  DIRECTION 
THERMOCOUPLE  POSITIONS  IN  THETA, R, PHI 


*C00<28:0 

*30042900 

>00043333 

•00043:33 

•00043230 

•00043333 

•30043433 

•00043533 

•00043633 

•00043733 

•00043830 

•00043930 

•00044300 

■00044:30 

•00044230 

•00044330 

00044430 

00044533 

30044630 

00044733 

00044800 

30044930 


C»O«0N/R4 /XC ( 93 ) , YC ( 93 ) , ZC ( 93 ) , XS ( 93) , YS ( 93 ) , ZS ( 93 ) , 

6  DXXC(93),DYYC(93),0ZXC(93),DXXS(93),DYY8(93),DZZS(93) 

COMMOM/BLl/DX,OY,DZ, VOL, DTIME, VOLOT, TROT, TCOOL,PI,Q,QR 
COMMON/BL7 /MI , M IP 1 , NlMl , N J, N JPl ,MJM1 , NX, NKP 1 , MKMl 
«  , NIP 2 , NJP2, NXP2 , NA, NAPl , NAMl, NB, NBPl, NBNl  XRUN, NCHIP, NJRA, NWRP 
COMMON/9L12/  NWRITE, NTAPS,NTMAX0,  NTREAL, TIKE, SORSUM, ITER 
COMNON/BL14 /HCOEF, TINF, CNT, ABTURB, BTURB, VISL, VISMAX, QCORRT, PHI , PM200043 10  0 
C0XN0N/8L16/  CONSTl, C0NST2, CONST3,CmiST4, CONST! , NT, UO, H, UCRT, BUOY, 00045203 
«  C90,PRT,CONDO,V1SO,RHOO,HR,TR,TA,DTEKP,TWRITS,TTAPE,TMAX,GC,RA:R80045333 
COMMOM/BL20/STCU (22, 16, 32) ,81012 (22, 16, 32) , 81022 (22, 16,32)  30045438 

6  ,81013(22,16,32), 81023(22,16,32), 81033(22, 16, 32)  30045533 

COMMON/aL23/ICHPB(10), NCHPI (10) ,JCHPB(10),NCKPJ(10),KCKPB(18),  30045633 

4  NCHPX(10),TCHP(10),CPS(10),CON8(10),NrAN(10)  30045733 

CaMN0N/aL31/  TOO(22,16,32),ROO(22,16,32),POO(22, 16,32)  00045830 

4  , COO (22, 16,32), U00(22, 16,32), VOD(22, 16,32), WOD(22, 16, 32)  30045900 

CO}MON/aL32/  T(22, 16,32), R(22, 16, 32), P(22, 16,32)  30046000 

4  ,C(22,16,32),U(22,16,32),V(22,16,33),W(22,16,32)  00046133 

COMN0N/BL33/  TPO(22, 16,32), RPD(22,16,32),PPD(22,16,32)  30046230 

4  ,C?D(22,16,32),UP0(22,16,32),V?D(22,16,32),WPD(22,:6,32)  30046330 

CSMMON/BL34/  HEIGKT(22, 16,32) ,RE0(22, 16,32) ,  00046400 

4  SMP(22, 16,32), SMPP(22,:6,32),PP(22,16,32),  00046530 

4  30(22,16,32), OV(22, 16, 32), 0W(22,:6,32)  30046630 

COMMON/BL36/AP (22, 16, 32) , AS (22, 16, 32) , AH(22, 16, 32) , AN (22, 16,32),  30046730 

4  A8(22, 16,32), Ar(22,16,32),AB(22,16,32),  38046830 

4  89(22,16, 32), SU(22, 16,32), RI(22,16,32)  30046933 

C3MM0N/BL37/  VIS(22, 16, 32) ,COND(22, 16,32) ,NOD (22, 16, 32) ,RWALL(579)0CC47333 
4  ,3?M(22,16,32),HSZ(3,2),NHSZ(22,16,32),RESORM(93)  303471:3 

CCXMON/ai38/NTKCO,CX(12),CY(:2),CZ(l2),NTH(:2,3),TCOUP(12)  303472:3 

330473:: 

•  m 

W  VWH  *f  « 

•*  *4^/  ^  •  » 

y 

y  y04^'^CC 

42.  READ  IN  DATA  SET  1  -  6  DATA  0004713: 

READ (21,  )  TMAX, TWRITE, TTAPE, DTIME 


»1.  READ  IN  DATA  TO  INDICATE  EITHER  KRUN-C  OR 
READ (21,*)  XRUN, NCHIP, NWRP, NTHCO 


«3.  READ  IN  DATA  FOR  HEAT  SOURCE 


y  wW 
yyy^  ^  y 
wyy%6wy  y 

33048i:3 


READ  )21,«)  HSZ (1,1), HSZ (1,2), HSZ (2,1), HSZ (2, 2), HSZ (3, 1),HSZ(3,2): 

WRITE  (6,20)  KSZ  (1,1),  HSZ  (1,2),  HSZ  (2,1),  HSZ  (2, 2),  HSZ  (3,1),  HSZ  (3, 2) 

20  FORMAT  (/,20X, ' SiEAT  SOURCE  LOCATION  IS  IN  THE  VOLUME  (NON-DIKE',  :30485:: 


I  y yy 

''30484: 


& 

'NSiCNAL  w:th 

RESPECT 

TO  RADIUS)', 

300486;: 

4 

/,5X, 'FROM 

',?8.4  ' 

TO 

',F8.4,' 

IS 

X-DIRECTICN' , 

y  y  y  *1  6  '  w  V 

4 

/,5X,'FROM 

',.•8.4,' 

TO 

',F8.4,' 

IN 

Y-DIRECTICN', 

y yy^eCy y 

4 

/,5X,'?ROM 

',"8.4,' 

TO 

',F8.4,' 

IN 

Z-DIRECTION',/) 

yyy.Syyy 

*4.  READ  IN  DECK  DATA 

IE  (NCHIP.EQ.O)  GOTO  16 
PRINT  • 


**  '4^'/  a*'* 
■'4^ /  a  •  •  * 

V  y  y  n  « 

^  y04  w 

zzz^rzzz 
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on 
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f 


D’J,DV,DZ 

CSED  IN  PRESSURE  CORRECTION  SUBROUTINE 

*00056300 

?P 

CORRECTED  PRESSURE  (P') 

*00056400 

SC  - 

SOURCE  TERM 

*00056500 

s? 

TEim  AT  P  NODAL  POINT  FOR  BOUNDARY 

*00056600 

CONDITIONS 

*00056700 

A?  • 

COEFICIENT  AT  NODAL  POINT 

*00056800 

A£,AN,AN 

COEFICIENTS  AT  PTS  EAST, WEST,  NORTH, 

*00056900 

AS,M',Aa 

SOUTH,  FRONT,  AND  BACK 

*00057000 

5HP 

RESIDUAL  MASS  SUMMATION  OF  NODAL  POINT 

*00057100 

SMPP 

LENGTH  SCALE  FOR  TURBULENCE 

*00057200 

CPH 

MEAN  SPECIFIC  HEAT 

•00057300 

VIS 

VISCOSITY 

*00057400 

COHO 

CONDUCTIVITY  MATRIX 

*00057500 

NHSZ 

WHEN  THIS  VALUE  EQUALS  ZERO,  THERE  IS 

*00057600 

NOD 

NO  HEAT  SOURCE  LOCATED  AT  THE  NODE 

•00057700 

IF  EQUAL  TO  ZERO,  LIQUID 

•00057800 

IF  EQUAL  TO  ONE,  SOLID 

*00057900 

__3,  _E  ■ 

BEGINNING  AND  ENDING  NODAL  POINT  FOR 

*00058000 

REQ 

THE  SOLID  IN  1,J,X 

*00058100 

DENSITY  AT  EQUILIBRIUM 

*00058200 

NIPl  • 

N«>AL  POINT  IN  I  PLUS  1  (OTHERS  SIMILAR) 00058300 

XC,YC,2C 

THETA, R, PHI  LOCATION  OF  NODAL  POINT  OF 

*00058400 

DXXC,DYYC  > 

A  CENTER  CELL 

*00058500 

LENGTH  AROUND  THE  CENTER  CELL 

*00058(00 

DZZC 

*00058700 

XS,YS,ZS 

THETA, R, PHI  LOCATION  OF  NODAL  POINT  OF 

*00058800 

DXXS,DYYS  - 

A  STAGGERED  CELL 

•00058900 

LENGTH  AROUND  THE  STAGGERED  CELL 

*00059000 

0ZZ8 

*00059100 

CXpCYfCZ  * 

LOCATION  OF  THERMOCOUPLE  IN  THETA, R, PHI *00059200 

COMIOM/R4/XC (93) , YC (93) , ZC (93) ,  XS (93) » YS (93) , ZS (93) , 

,0ZZC(93) ,  DXXt  (93)  ,DYYS  (93)  ,DZZS  (93) 
Cq^N/lll /OX,  OY,  OZ ,  VOL,  OTl  W,  VOLOT,  TKOT,  TCOOL,  P 1 , 0,  QR 
eONNON/BL7/NX , N IP 1, NIHl , N J,  NJf 1 ,  NJNl, NX, NRPl, NKMl 


00059400 

00059500 

00059(00 

00059700 


NIPS , NJP3, NKP3, KA, NAPl , NANI,  Nl, NBPl, NBMl , KRUN, NCHIP, N JRA, NMRP  00059100 

VK&Br  vmm'm  aaasmaaa 


COMMOH/illS/  NWR1TE,XTAPE,NTIIAXO,NTR*AL,TIM*,SOR80M, ITER 

^  AMU*  ABlMPfttA  mmn^m  aaaa' 


00059900 
,?M2000(0000 
UOY, 000(0100 
RAIR0C0(0200 

. .  .  .  .  _  000(0300 

4  ,S1GI3(22,:(.32),SIG23(22,1(,32),SIC33(22,1(,32)  000(0400 

COMKON/9L22/:CllPB(10),NCHPI(10),JCHPB(10),NCHPJ(iC),KCHPB(10),  000(0500 
«  NCHPK(10).TCH?(10),CPS(lC),CONS(I0),NrAM(I0)  000(0(00 

COMMON/313:/  TOO (22, K, 32 ), ROD (22, 1(, 32), POD (22, 16, 32)  000(0700 

«  ,  COD  (22,  16, 32) ,  COD  (22, 16, 32) , VOD  (22, 16, 32) ,  WOD  (22,  16, 32)  0006080C 

COMMON/3132/  '(22, 16, 32) ,R(22, 16,32) ,'P(22, 16, 32)  30060900 

4  ,C (22, lo, 32) ,C  (22, 16,32) ,V(22, 16, 32) ,W (22, 16, 32)  300610CC 

COMMON/3133/  rP!)(22, 16, 32) ,RP0(22,16, 32) , PPD(22, 16, 32)  30061100 

4  , CPO  (22,  16, 32)  ,'J?D (22, 16,32)  ,V?D  (22, 16, 32) ,  WPO  (22,  16, 32)  C006120C 

CO»)ON/3134/  Hr::GHT(22,l(,32),REQ(22,16,32),  00061300 

4  SMP(22,16,32),SMPP(22,16,32),PP(22,16,32),  00061400 

4  DC(22, 16,32), 0V(22, 16,32), DW(22, 16, 32)  00061500 

C0MM0N/3136/AP (22, 16, 32) ,  AE (22, 16, 32) , AW(22, 16, 32) , AN (22,  16, 32) ,  00061600 

4  AS(22,:6,32),A7(22,:6,32),AB(22,16,32),  00061700 

4  SP(22,:6,32),SC(22,16,32),RI(22,:6,32)  00061800 

COMMON/3137/  VTS(22, 16,32) ,COND (22, 16,32) ,NOD(22, 16,32) ,RWAL1(579)00061900 
4  ,C?M(22,'.6,32),HSZ(3,2),NHSZ(22,16,32),R£SORM(93)  00062CCC 

COMMON/3138/NTllCO,CX(:2),CY(12),CZ(12),NTH(  12, 3 ) , 7CCUP ( 12)  00062100 

COMMON/3139/A1EW, PCC3VE, CSNSRA,  PC'JRMl, PSOUTH, QCORR, PERROR  00062200 

DATA  GRAV/32. 1  //  00062300 

00062400 

•  INTRCD'JCE  0:VEN  PARAMETERS  00062500 

00062600 

T:ME-C,  00062700 

TR«TA/:.9  00062800 

H-9.6  00062900 

V!SO*V;SO/CO/H  00063000 


INTRCD’JCE  0:VEN  PARAMETERS 

t:me-c, 

TR«TA/:.9 

H-9.6 

V!SO-V:SO/’JO/H 
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v:sL«v;so 

V:SMJO(-400.*VISL 

Ha-H«3C.48 

CONOC-VISO/PRT 

?>4.-ATAN(l.) 

ALEW  »  l.O 
XJRA-:5 

C  THS  K£AT  TRANSFER  COEFFICIENT  IS  IN  BTO/HR/FT»*2/F 
HCONV»:5.0 

HCOEF»HCONV/ (3600 . •CPO*RHOO»OOJ 

*  V  f  W 


CC»1ST:-RHOO*UO*UO/ (GC*14 .696*144. > 

C0NS73*1.8/TA 

CONST4«H*30.48 

CON8T6-U0*30.48 

NTNAXO-0 

aOOy«GRAV*H/ (U0*U0) 

'JGRT-U0*O0/  (QC*RAIR*TA) 

TCOOL«:.0 

CON$RA-TA*TA*TA/ (RHO0*CP0*U0*36O0 . ) *1 .714E-9 

NRXTE ( 6, 200 )  TR, CONDO , VI80,  CPO,  HR, OTIMS, HCONV 
200  FORHATCSX,  'THE  REFRENCE  TEMPERATURE  AND  THERMAL  PROPERTIES',/, 
(  /,3X,  'T  -  ',F10.4,'K,  CONDO  •  ',E12.6, 

«  /,5X,'VIS0  -  ',E12.6,'  CPO  •  ',E12.6, 

«  /,JX, 'RADIOS  -  ',£12.6,'  CM', 

«  /,SX,'OTIME  •  ',£12.6, 

(  /,JX, 'HCONV  •  ',E12.6,/) 

SNRITS- Jint (TWRITE*U0/DT1ME/H> 

0Q0664C0 

STAPE-jlftt (TTAPE*00/0TIME/H) 

00066SC: 

C  •••  PRINT  OUT  INPUT  INFORMATION 

XRITE<6,61)  (STAR,>1,90),KRUN,TMAX,7WRITE,TTAPE,NWRP 
6:  .?ORMAT(///,90A1,/,5X,'KRUN  -',I2,/,5X, 

(  'TMAX  •',F8.3,'  SECONDS', /5X,'TWRITE  -',F8.3, 

«  '  SECONDS', /,5X,'TTAPE  •',F8.3,'  SECONDS', 

(  /,5X,'  NUMBER  INTERVALS  OF  WRITING  ON  PAPER  ',  15, /> 

C  ••*  INITIALIZE  VARIABLE  FIELD 

IS  22:  >:,NJP1 
:o  22:  >:,NiPi 
:0  22:  X»1,NKP1 
ROD(I,J,K)«l. 

R(I,J,K)-1. 

R?0(:,-',X)-1. 

•joo(:,j,x)-o. 

W (X,W,K) *0 . 

•;?D{I,J,K)-0. 

70D(I,J,X)«C. 

7(I,J,K)»0. 

• 


7?0 

(I 

,*,K)-0. 

0  ^ 

K)»0. 

>:?D 

(I 

J,K)»0. 

aOD 

(I 

J,X>-0. 

?OD 

(I 

PC 

0 

:')»o. 

PPD 

(I 

J,X)-0. 

3T(I, 

J,K)»0. 

37  ( 

I, 

T,;<)-o. 

3>U 

T 

*  8 

-MO-O. 

:0063ICC 

:C06320C 

03063300 

03063400 

00063300 

03063600 

03063730 

33063800 

00063900 

30064000 

30064100 

00064200 

00064300 

33064400 

30064500 

00064600 

30064700 

30064800 

00064900 

00065000 

00065103 

30065200 

00065300 

30065400 

30065500 

33065600 

33065730 

:3065800 

33065900 

30066030 

30066100 

33066200 

000663C0 


30066633 

30066733 

30066800 

30366930 

nxwwP  / 

VWp  /«ww 

30067333 

33067633 

f 

33067830 

A  AA£-y  AAA 

wwwO  /7wv; 

30C68C0S 

A  AA£0  t  A  A 
w WwOO  «  w w 

30068233 

33068333 

A AA<fl/ AA 

w  wU Po%  V  w 
A aa^ocaa 
wwwPDSww 

33C686C3 

33068730 

aaACAOAa 
w  w V  DOO V  u 

330689CC 

A AA^AA A A 

w0069>ww 

aaa^q^aa 

aaaaaaa^ 

AAA^a/AA 
SJ  V 0  07*t  W  w 
aaacqsaa 

33C696C0 
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su(:,j,x)«o. 

S?{I,w,X)-0. 

PP(I,J,X)»0. 

W(I,J,X)-0. 

AW(1,J,X)»0. 

AE(I,w,X)-0. 

AN(I,J,X)»0. 

AS(I,J,X)«0. 

AP(I,J,X)-0. 

A8(I,J,X)-0. 

SMP(i,cr,X)«o. 

S}!PP<I,J,X)«0. 


VIS(I,J,X)«VISL 
COin}(I,J,K)«CONOO 
CPM(I,J,K)»1.0E0 
TOO(I,J,K)»1.0EO 
Ta,J,K)-TOD(I,J,K) 
TPO(1,J,K)-TOO<I,J,K) 
COQ(X,J,X)-CO 
C(2,J,K)*COO{r,J,K) 
CP0(1,J,K)«C0D(1,J,K> 
NH82(I,J,K)-0 
W0(I,J,X)-0 
220  CONTINUE 


C  *•*  DETERMINE  THE  POSITION  OF  HEAT  SOURCE 

00  300  :«2«NI 
00  300  J>2,NJ 

C  CHANCE  TO  RECTANGULAR  COOROINATES 
XX«YC(J)«C08(XC(:)) 

YY-YC(J)«SIN{XC(in 


C  CHECK  .0S£*^.*NHS  CONTROL  VOLUME,  IF  SO  SET  NKSZ. 
4  i'l’-C^'^X.GT.HSEd.EM  GOTO  310 

GOTO  310 

^n«4 (4f«^ •Ql*l 

NHS2i:,-M7>-i 

GOTO  302 
310  CCNTIXTE 
300  CONTINUE 


DEFINE  TI-.ERMAL  PROPERTIES  OF  DECK  AND  SOLID 

IF  (NCKIP.EQ.O)  GOTO  410 
DO  402  X»:,.\CHIP 
ia-ICH?3(N) 
lE-IB+NCHPI (N)-l 

ja»jcH?a (X) 

-*e*jbi-nch?j(N)-: 

XB-KCK?3(N) 

KE-KB-*-NCH?K(N)-l 
DO  405  1*13, IE-; 

DO  405  J*J3,J£-1 
DO  405  K-K3,KE*1 
COND  < I , D,  X) *00X00 'CONS (N) 

C?H(:,J,K)*C?0'CPS(N) 

NOD<I,J,X)*: 

4C5  CONTINUE 
402  CONTINUE 
<10  CONTINUE 


00069700 

00069800 

00069900 

00070000 

0007CI00 

00070200 

00070300 

00070400 

00070500 

00070600 

000707C0 

00070800 

00070900 

00071000 

00071100 

00071200 

00071300 

00071400 

00071500 

00071600 

00071700 

00071800 

00071900 

00072000 

00072100 

00072200 

00072300 

00072400 

00072500 

00072600 

00072700 

00072800 

00072900 

00073000 

OJ073100 

00073200 

00073300 

00073400 

00073500 

00073600 

00073700 

00073800 

00073900 

coo7<:oo 

20074  ICO 

w  /n  J W  V 

CCC744C0 

C0O745C0 

20C746C0 

C00747CC 

00074800 

00074900 

00075CCO 

00075122 

00075200 

20C753C0 

vww  1 

00075620 

0C07570C 

/  wCvW 
wwM  t 

vv/w  /Owv,/w 
WWW  /  C.ww 

02076220 

20076300 

vww  /Onww 
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C  •**  FOR  CCXTIN2IXG  R’JN,  READ  DATA  FROM  TAPE  OR  DISK 

:■ (KRCK  .EQ.  1)  GO  TO  9997 
GO  TO  15 

9997  do  222  k-l,nKol 
do  222  i-l,nipl 
do  222  i«l,njpl 

rod{9,355)  t  (i,  j,k)  ,  -(i,  j»k)  ,v(l,  j,Ic)  ,w(i,  j,  Jc) 
r««o(9,S55)  p(i, j,k),cpm(i,  j,k) ,eond(l, j,k) ,vls(l, j,k) 

222  contir.u* 

rMd  ( 9,  S56)  t in*,  qr r  qeorrc,  pml f  pm2,  xxxxx 
r««d ( 9, 55S)  xxn, xxta, xxuO, xxeondO, xxvixO, xxrhoO 
rMd(9,5S7)  ncrMl,nl,nj>nk,nipl,njpl»nkpl»nlml,njml,nkml,ic«rt 
rMd(9,596)  xc,ye,ze,x«,yt,2a 
rMd ( 9, 956)  dxxc,  dyyc,  dzze,  dxxs,  dyy«,  dzzs 
559  ;orRuit(4(3x,«12.4)) 

556  ;onMC(6(lx,tl0.3) ) 

557  fonucdlil) 

RENINO  9 

HRITE(6,*)NTMAX0 
19  CONTINUE 


C  **•  DEFINE  HEIGHT  OF  NODE  POINTS  AND  COMPUTE  HYDROSTATIC 
C  EQUILIBRIUM  DENSITY  REQ(I,J«X) 


DO  13  X-1,NXPI 
DO  13  I«1.NIP1 
DO  13  >1,NJP1 

DHY-YC ( J) ‘SIN (XC ( I) ) -SIN  (ZC  (K) ) 
HEIGHT (:«J,K)«0HY 
13  CONTINUE 
C 

DO  229  J>1,NJ?1 

DO  229  >1,N:P1 

DO  229  K»l,NKPl 

AAAA— 3UOY«UCRT*HEICKT  ( I,  J,  X) 

RCQ(:,J,K)«EXP(AAAA> 

:f(krux  .ne.  D)  GO  to  229 

R?D(:,J,K)»BEQ{:,J,K)/T?0(:,J,K) 

sodj:,j,X)-rpd(:,  j,K) 
s(:,-*,K)-RP0(:,  w’,K) 

229  CONTINUE 


INITIALIZE  U,y,T,R,?  FIELD 


DC  2::  K-i,XX?: 

DO  210  >i,njp: 

DO  2::  i=-i,n:?i 

T(I,v*,X)-TOD(I,  J,K) 

c(i,j,x)-coo<:,u,K) 

a(i,J,:<»-ROD(:,u,K) 
U{I,J,:<)«UOD(I,J,  K) 
V(I,J,X)-VOD(;,U,K) 
w(i,j,:<)-woD(:,  j,K) 
?(:,--,:<)-?OD(:,  j,x) 
2:0  CONTINUE 


FOLLOWING  IS  FOR  DETERMINING  THE  THERMOCOUPLE  POSITIONS 


2  A 
V  W  W 


2 


DO  5CCC  n=i,;;thco 

ZZ  5CC*  * S**?" 

:r  UOd)  .Lr.OX(N)  .ANO.XCd-l)  .GE.CX(N) )  GOTO  50C2 


00076500 

0C0766C0 

00076700 

00076800 

00076900 


00077800 
00077900 
00078000 
00078100 
00078200 
C0078300 
00078400 
00078500 
00078600 
00078700 
00078800 
00078900 
00079000 
00079100 
00079200 
00079300 
00079400 
C00795C0 
00079600 
00079700 
00079800 
00079900 
00080000 
WWWOW  sWM 
A  A 
W  ^WOW«  WM 
AAAQAAAA 
wwvDwwww 
aaaaa/aa 


00081 '.OC 
00081200 
00081300 

W  wwB  *  )  WW 


AAAp^ 

wwvO*  Oww 

AAAQ*  *7AA 

wwwO*  /  ww 

00081800 
A  A  Ap  •  A/S  A 

WWUO*  V 

AAApAAAA 

AAApA*  AA 
U  W «  w  W 

00082200 

00082300 

AAAAA/AA 

V  V  w  04  ^  v  w 
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DO  5003  J-1,NJP1 

:F  (yC(J).LT.CY(N).AND.yC(J+l).GE.CY(N))  GOTO  500-3 

5003  CONTItlUE 

5004  JJoJ 

DO  5005  K-1,NKP1 

:F  (ZC(K).LT.CZ(N).AND.ZC(K+1).GE.CZ(N))  goto  5006 
3005  CONTINUE 
5006  KK-K 

NTH(N,l)»n 
NTH(N,2)»JJ 
NTH(N,3)>>KK 
5000  CONTINUE 


RETURN 

END 


r 

c  •** 


SUBROUTINE  CALVIS 


THIS  SUBROUTINE  CALCULATES  THE  TURBULENT  VISCOSITY  AND  UPDATES* 
THE  VISCOSITY  MATRIX 


C0082600 

03082700 

00082800 

00082900 

00083000 

00083100 

00083200 

33083300 

30083400 

00083500 

00083600 

00083700 

00083800 

00083900 

00084000 

00084100 

00084200 

00084300 

00084400 

30084500 

00084600 

00084700 

00084800 

30084900 

00085000 

30085100 

30085200 

30085300 

30085400 

00085500 

00085600 


C(»4MON/R4/XC (93 ) , YC (93) , ZC (93) , XS (93) , YS (93) , ZS (93) ,  30085300 

6  DXXC(93),0YYC(93),0ZZC(93),0XX8(93),DYYS(93),DZZS(93)  30085400 

C0MMDN/BL7/NI,NIP1,NIM1,NJ,NJP1,NJNUNK,NKP1,NXM1  00085500 

«  ,NIP2,NJP2,NKP2,NA,NAP1,NAN1,NB,NBP1,NBH1,KRUN,NCHIP,NJRA,NNRP  00085600 
CO»MON/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,QCORRT,PMl,?M200085700 
COHMON/BL16/  CONSTl, CONST2, CONST3, CONST4 , CONST6, NT, UO , H, UGRT,  BUOY, 00085800 
6  CPO.PRT, CONDO,  VISO,RHOO, HR, TR,TA,OTEMP,TWRITE,?TAPE,TMAX,GC,RA:R00085900 
COMMON/BL32/  T(22, 16,32), R(22, 18, 32), P(22, 16,32)  00086000 

6  ,C(22, 16,32), U(22, 16,32), V(22, 16, 32), N(22, 16,32)  00086100 

COMMON/BL34/  HEIGHT (22, 16,32) ,REQ (22, 16,32) ,  00086200 

6  SMP(22,16,32),SMPP(22,16,32),PP(22,16,32),  00086300 

«  DU(22,:6,32),DV(22,16,32),0W(32,16,32)  00086400 

COMHON/BL36/AP (22, 16, 32) , AE (22, 16, 32) , AW(22, 16, 32) , AN (22, 16, 32) ,  30086500 

6  AS(22,16,32),AF(22,16,32),AB(22,16,32),  30086600 

4  SP(22,16,32),SU(22,16,32),RI(22,:6,32)  00086700 

wOMMON/ 8^3 7 1  VIS(22,*6,32), COND (22, 16,32) , NOD (22, i6, 32) , RWAa,L (379) www  868CC 
4  ,CPM(22,:6,32),KSZ(3,2),NHSZ(22,:6,32),R£SORM(93)  00086900 


CALCUIATE  ;.OCAL  SHEAR  AND  VISCOSITY  VIS  (I, -MO 

SPECIFY  ICCAI.  r-’R3ULENT  LENGTH  SCALES  SMPP(:,-*,:0 

DO  611  X«2,NK 

XP2-K-r2 

XPl-K-^i 

KMl-K-1 

XM2-K-2 

DO  611  >2,NJ 

J?2-Jf2 

jpi 

JMl-J-l 
JM2-J-2 
DO  611  :«2,x: 

IP2-I-2 

IPl-I-rl 

:mi-:-i 

;X2»I-2 

IF  (I.ES.2)  :v2=n:x: 

IF  C.EQ.NI)  :?20 
IF  (NOD(I,-*,K)  .rs.I)  GOTO  611 


0  '  dW  W 

3C0876CC 

00087700 

wwwO /Oww 


330882CC 

wWwOO Jww 
wwwOO*lWv 

33088603 

w  w  wOO  /  w  w 

•'AAflOpAA 

vwwOOOww 

wwv07www 
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C  CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1»XL(IP1,J,K,0,C) 

DXI  «XL(I  ,J,K,0,0) 

OXM1«XL(IM1,J,K,0,0) 

O«'l«yL(I,JPl,K,0,C) 

OYJ  •YL<I,J  ,K,0,0) 

OyMWL(I,JMl,K,0,0) 

OZP1-ZL(I,J,KP1,0,0) 

DZK  •ZL(I,J,K  ,C,0) 

OZM1-ZL(I,J,KM1,0,0) 

CC  IF  (J.EQ.2)  oyS-OYS/2. 

CC  IF  <K.EQ.2)  DZB-OZB/2. 

IF  (J.NE.NJ)  GOTO  101 

JP2-JPI 

DYN-DYN/2. 

101  IF  (K.NE.NK)  GOTO  102 
KP2-KP1 
DZF-OZF/2. 

102  CONTINUE 

C  •••  CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 


OXE  -XL(IP1,J,X,0,1) 

OXW  -XL(I  ,J,K,0,1) 

DYN  •YL(I,JPl,K,0,2) 

OYS  -YLdjJ  ,K,0,2) 

OZF  «ZL(I«J«XP1,0,3) 

OZB  oZLd^J^X  ,0,3) 

C  *•*  CACUU7E  0V/DX,02V/DX2,D'v7DX,D2U/0X2,DW/DX  AND  D2W/DX2 


DUDX«  (U  d?: ,  J,  K'  *U  d ,  J,  K) )  /DXI 
DUDXW-0 . 5  •  (U  (IP  1 ,  J,  K)  -U  <  IKl ,  J,  K) )  /OXW 
DUDXE-0 -  5 • (U ( :?2, J, K) -U  d  , J, K) ) /OXE 
D2UDX2- (DUDXE-DUDXW) /DXI 


DVDXW-O.iMVC,  J?l,K)*V(:,J,X)-VdMl,J?l,K)-V(I>!l,J,K))/DXW 
DVDXE-c.5*(V(:?:,  j?:,:<)-v(;?:,j,K)-vd,J?:,x)-v(:,j,K))/DXE 
DVDX-0.5' (DVDXEtDVDXW) 

D2VDX2-  (DVDXE-DVDXW)/DX: 


DWDXW-O.aMWC,  J,  KPl) -Wd,  J,X)-WdMl,  J,KPl)-WdM:,J,X) ) /DXW 
DWDXE-C.SMWC?:,  J,K?l)*Wd?:,J,K)-Wd,J,XPl)-Wd,  J,K))/DXE 
DWOX-0.3* (DWDXE-DWDXW) 

D2WDX2-  (DWDXE-DWDXW) /DXI 


602  CONTINUE 


CALCULATE  DU/DY, D2U/DY2, DV/DY, D2V/Dy2, DW/DY  AND  D2W/DY2 


DVDY- (V ( : , J? 1 , X) -V ( : , j, x) > /dyj 

DVDYS=0 , 5 • (V  C, J?: , X) -V (I, JXl, X) ) /DYS 
DVDYN=C . 5 • ( V ( : , J?2, X) -V ( : , J  , X) ) /DYN 
D2VDY2= (DVDYN-DVDYS) /DYJ 


00089400 

30089500 

00089600 

00089700 

00089800 

00089900 

00090000 

00090100 

00090200 

00090300 

00090400 

00090500 

00090600 

00090700 

00090800 

00090900 

00091000 

00091100 

00091200 

00091300 

00091400 

00091500 

00091600 

00091700 

00091800 

00091900 

00092000 

00092100 

00092200 

00092300 

00092400 

00092500 

00092600 

00092700 

00092800 

00092900 

00093000 

00093100 

00093200 

00093300 

00093400 

00093500 

00093600 

00093700 

00093800 

00093900 

■*  QA  A 
W  7*}  WWW 

00094100 

00094200 

00094300 

00094400 

00094500 

00094600 

00094700 

00094800 

00094900 

00095000 

00095100 

00095200 

00095300 

00095400 

000955CC 

00095600 

00095700 

00095800 

00095900 

00096000 

w  wU  70 
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rJ3YS-C.;’'(U<Il'l,J,K)+0(I,J,K)-U(IPl,JMl,K)-0{I,JMl,K»)/DYS 
3U0YN-C.5MU<IP1,J?1,K)  +0(1,  JP1,K)-U(IP1,  J,K)-U (I,  J,X) ) /DYN 
300Y-C.5* (DUDYN+DUDYS) 

D2CDY2-  (DUDYN-DUDYS)/DYJ 


3SroYS«C.5«(M(I,J,KPl)-rW(I,J,K)-W(I,JMl,KPl)-W(I,JMl,K))/DYS 
3WDYN-C.5MW(I,JP1,K?1)+W(I,JP1,K)-W(I,J,KP1)>W(I,J,K))/DYN 
3H0Y»0.*« (DWDYN+DVTOYS) 

D2WDY2-  (0WDYN-DWDYS)/0YJ 

606  CONTINU- 

•••  CALC33ATE  00/02,020/022, DV/02,D2V/DZ2,DW/DZ  ANO  02W/0Z2 


ONOZ* (K  C ,  J, KPl ) -W ( I, J, K) ) /OZK 
0IIDZF-C.SMM(1,J,XP2)-W(I,J,K  >)/DZF 
OMD2B«0.5MH<I,J,KP1)-H<I,J,!CM1))/OZB 
02ND22<*  (ONOZF-ONOZB) /OZK 


DV0ZB*C.5MV(1,JP1,K)+V(1,J,K)-V(1,JP1,KM1)-V(I,J,KM1))/0ZB 
OVOZF-0.5-(V(I,JP1,KP1)+V{I,J,KPI)-V<I,JP1,K)-V(I,J,K)>/OZF 
3VDZ«0.S<  (OVOZF-rOVOZB) 

02VDZ2-  (OVDZF-OVOZB)/OZK 


0002B-C.5*(0(IP1,J,K)+0(I,J,K)-0(IP1,J,KM1)-W(I,J,KMI))/D2B 
0OOZF-C.iMO(IPl,J,KPl)+0(I,J,KPl)-0(IPl,J,K)-0(I,J,K))/02F 
OOOZ-C.S*  (OOOZFOOOZB) 

020022-  (OOOZF-OOOZB>/OZK 

0RDX-((X(IP1,J,K)-BEQ(IP1,J,K))-(R(IM1,J,X)-RE0(IMI,J,K)))/ 

C  (OXE'OXN) 

DROY-<(R(I,J?l,X)-REQ<I,JPl,X))-<R(I,JMl,X)-REQ(I,JMl,K)))/ 

«  (DYS-OYS) 

0R0Z-(<?.(I,J,RPI)-REQ{I,J,XP1))-<R(I,J,XM1)-RE0(I,J,XMI)))/ 
i  (3ZF*0ZB) 

OROCA-S :K ( ZC ( X) ) • ( S IN ( XC ( I > ) • OROY+COS (XC ( I ) ) *  DROX ) 
t  '■:3S(ZC(K))-0R0Z 

'  CALCJIATE  RICHAROSON  NOMBER 

STRAi:.-:J3Y««2+OVDX”2-DWOX*»2+OV02**2+DWDY*»2*DOOZ**2 

3302  -  ;;R?(D0Dy*D00Y*000X*000X+D002»D002+DV0Y*DV3YOV3X*DV3Xr 

t  3V32*3V3Z--DW3X*DW0X-rDW0Y*DW0Y*DW0Z*DV(02) 

IF (3002.12.0.) GO  TO  600 

>  CALCULATE  rJR80LE.NT  LENGTH  SCALE  SMPP(I,J) 


00096200 
00096300 
00096400 
00096300 
30096600 
00096700 
00096800 
00096900 
00097COO 
00097100 
00097200 
00097300 
00097400 
00097300 
00097600 
00097700 
00097800 
00097900 
00098000 
00098100 
00098200 
00098300 
00098400 
00098300 
00098600 
00098700 
00098800 
00098900 
00099000 
00099100 
00099200 
00099300 
00099400 
00099300 
00099600 
00099700 
00099800 
00099900 
00100000 
00100100 
00100200 
wJiWW Jww 

00100400 

wWaWwGww 
W  ^  A  WW  '  w  V 


SMP123-SQRT(((U(IPl,J,R)-t-U(I,J,X))*0.5)'*2+((V(I,J?l,K)-V(I,J,K)i« 
(  0.5) •-2+( (W(I,J,XP1)+W(I, J,X) )*0.5) ••2)/DD02 

Sy.?P12-3302  /SORT  (D2UDX2*D20DX2+D2UDY2*D20DY2 
t  -32U0Z2*32UDZ2+D2VDX2*D2VDX2+D2VDY2*D2VDY2+D2VDZ2*D2VDZ2* 

(  32WDZ2’32MDZ2r02WDX2*D2W0X2*D2W0Y2*D2WDY2) 

SMPP  < J, K) -CNT* (SMP123+SMPP12) * . 5 

a:  (I,  j,  ;<)  — buovordga/  (R(  i,  j,  k)  'strain) 

A3RI?R-A37URB-rRI  ( I,  J,  K)  /PRT 
:F(ABR:?a  .ir.  o.)  go  to  600 
:F{ABR:?a  .so.  O.)  go  to  613 

UW  A  W  C  • 

600  v:s(:,:,:<)-v!SL 
GC  TO  ^  * 

613  V:S(I,,',':<)=VISMAX 

njv  •  w  C  .  • 

610  V:S(I,-*,:<)-VISLtR(I,  J,X)*SMPP(I,  J,K)  'SMPPd,  J,X)  'SQaT  (STRAIN)/ 

(  (3TURB*A3RI?R) 


00101400 

00101500 

C'*'' 


0C1C220 

«  n  5  *5  • 

V  W  4  V<b  W  V 

-  ^  r  5  /  '* 


82 


oo 


IF{VIS(I,J,K»  .GT.  VISMAX)  VISd, J,K)«VISMAX 
€11  CONTIXGS 


DO  lie  I-1,NIP1 
00  lie  J«1,NJ?1 
V1S(I,J,NKP1)-VIS(I,J,NK) 
VIS(I,J,:  )-VIS(I,J,2  ) 

110  CCMiTIXUS 

DO  120  >1,NJP1 
00  120  X-1,NKP1 
VIS (NIPl , J, K) -VIS (2 , J, K) 

VISd  ,JrK)-VIS(NI,J,K) 

120  CCmTIK'JE 

00  130  K«1,NKP1 
00  130  I«1,NIP1 
V18(1,NJP1,K)-VIS(I,NJ,K) 
VISd, 2  ,K)-VIS(I,3  ,X) 

VISd,:  ,K)-VISd,2  ,K) 

130  CONTIKCE 

00  13S  X«l,l€ 

XX«NXP1*K 
00  135  >1,NIP1 
00  135  J-1,NJP1 
VISd,J,XX)  «VISd,J,X) 

135  CONTINUE 

00  140  I«1,NIP1 
00  140  >1,NJP1 
00  140  X«1,NKP1 
ir  <N00d,J,K)  .EQ.l)  GOTO  140 
CONO C, J, X) -VIS d , J, X) /PRT 
140  CONTINUE 

RETURN 

ENO 


00103000 

00103100 

00103200 

00103300 

00103400 

00103500 

00103600 

00103700 

00103800 

00103900 

00104000 

00104100 

00104200 

00104300 

00104400 

00104500 

00104600 

00104700 

00104800 

00104810 

00104900 

00105000 

00105100 

00105110 

00105120 

00105130 

00105140 

00105150 

00105160 

00105170 

00105200 

00105300 

00105400 

00105500 

00105600 

00105700 

OOlOSlOO 

00105900 

00106000 

00106100 

00106200 

00106300 

00106400 

03106500 

001066CC 

00106700 


COMMON/a< /XC (93) ,  YC  (93) ,  2C (93) , XS  (93)*,  YS(93) ,  IS  (93) ,  OOlOMuO 

i  3XXC(93) ,3YYC(93) ,DZZC (93) , DXXS (93) ,0YYS (93) ,  3ZZS (93)  :0.-690« 

CC»#40N/aL:/3X,  OY,  3Z,  vox,,  DTIME,  VCLDT,  THOT,  TCCOU,  ?! ,  S,  5R 

Ca4M0K7317/N:,NI?l,NlMl,NJ,NJPl,NJMl,NX,NXPl,NKMl 
C  ,NI?2,NJP2,NKP2,NA,NA?1,NAM1,N3,NBP1,NBM1,XR0N,NCHIP,NJRA,NWRP  OC1072wO 
C(»W0N/3L:2/  NWRITE,NTAPE,N7MAXO,NTREAL,TIME,SORSUX,ITER  OOlOpwO 

COMMON/3L14/HCOEF,  T:NF,CNT,ABT0RB,BTURB,VISL,  VISMAX,  0CORRT,PMl,?y.20010740C 
COMMON/3116/  CONSTl , CONST2, CONST3,CONST4, CONST6, NT, UO, K, UCRT, BUOY, 0C*«7500 
t  CP0,?RT,  CONDO, v:SO,RHOO, HR, TB,TA,OTEMP,TWRITE,TTA?E,TMAX,GC,aA:R001-7600 
rfti«Mnv/a’.55/  'rnoB  f  1  p.i  urMOT  .  JCHPB(IO)  .NCHPJdC)  .KCHPB  (10) ,  00*07700 


6  NCHPK(lC),TCHPd0),CPS(10),CONS(10)  ,WFAN(10) 

CO»K>X/3131/  TOD (22,16, 32) , ROD (22, 16, 32) ,POD(22, 16, 32) 

(  ,  COD  (22,  16,  32) ,  'JOD(22, 16, 32)  ,VOD(22, 16, 32) ,  WOD(22, 16,  32) 

COMMON/3132/  7 (22, 16, 32) ,  R(22, 16, 32) , ? (22, 16, 32) 

6  ,C(22,16,32),U(22,16,32),V(22,16,32),K(22,:6,32) 

COMMON/3133/  T?D (22, 16, 32) , RPD (22, 16, 32) , PPD (22, 16, 32) 

&  ,C?D  (22,  '.6,32) ,  UPD  (22, 16, 32) ,  VPD  (22,  16,  32)  ,K?D  (22,  16,32) 

COMMON/5134/  ■■F.:gHT(22,  16,32)  ,R£Q(22, 16,32) , 

6  SXP  (22,  ;  o,  32) ,  SMPP  (22, 16, 32) , ??  (22,16, 32) , 

S  D':(22,  lb,32)  ,DV(22,16,32),DW(22,16,32) 

COMMON/3136/AiM22,  16,  32),AE(22,16,32),AW(22,  16,32),AN(22,  16,  32) , 
t  AS(22, :6,32),AF(22,16,32),A3(22,16,32), 


00107800 

00107900 

00108000 

00108100 

00108200 

00108300 

00108400 

00108500 

00108600 

00108700 

00108800 

00108900 
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£  SP(22,:6,32),S-J(22,i6,32),RI(22,16,32)  00'09000 

C0MM0N/BL37/VIS  <22, 16,32) , COOT (22, 16, 32) , NOD (22, 16, 32) , RWALL (579)  00a  .^9100 


,CPM(22,16,32),HSZ(3,2),NHSZ(22,16,32),RESORM(93) 

00109200 

00109300 

CALCULATE  COEFFICIENTS 

00109400 

00109500 

DO  100  K-2,NK 

00109600 

KP2-Kf2 

30109700 

KPl-K+1 

00109800 

KMl-K-1 

00109900 

KM2-K-2 

00110000 

DO  100  J«2,NJ 

00110100 

JP2-J+2 

00110200 

JPX-J+1 

00110300 

JMl-J-1 

00110400 

JM2«J>2 

00110500 

DO  100  I«2,NI 

00110600 

IP2-I>2 

00110700 

IPl-I+1 

00110800 

IMl-1-1 

00110900 

IM2«Z<-2 

00111000 

IF  (I.EQ.2)  IM2-NIM1 

00111100 

IF  (X.SQ.NI)  IP2-3 

00111200 

00111300 

CENTRAL  LENGTH  OF  THE  TEXPERTURE  CONTROL  VOLUME 

00111400 

00111500 

3XP1-XL(I?1,J,K,0,0) 

00111600 

3X1  -XLC  ,.',X,C,0) 

00111700 

DXM1-XL(1M1,J,X,0,0) 

00111800 

00111900 

DYP1-YL(I,JP1,K,0,C) 

00112000 

DYJ  -YLdjJ  ,K,0,0) 

00112100 

OYN1-YL(Z,JM1,K,0,0) 

00112200 

00112300 

OZP1«ZL(I,J,KP1,0,0) 

00112400 

OZK  •ZL(I,J,K  ,C,0) 

00112500 

OZM1-ZL(:,J,KM1,0,0) 

C0112600 

00112700 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

00112800 

00112900 

OXN-XL(:,J?1,K,0,2) 

00113000 

0XS»XL(I,J  .X,0,2) 

00113100 

DXF-XLC,  J,XP1,0,3) 

00113200 

3XB-XL(I,J,K  ,0,3) 

30113300 

30113400 

DYF-YL(:,J,K?1,0,3) 

30113500 

3YB-YL(:,J,K  ,:,3) 

33113600 

DYE-YLCPl, 0,1) 

w J • * J  /ww 

DYW-YLC  0,1) 

33113800 

00113900 

DZE-ZL(I?1,J,K,C,1) 

00114000 

DZW-ZLC  ,J,K,C,1) 

00114100 

DZN-ZL(:,J?1,K,C,2) 

00114200 

OZS-ZL(:,J  ,X,0,2) 

00114300 

00114400 

CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

00114500 

30114600 

DXEE-XL(:?2,L,-<,0,1) 

00114700 

3XE  »XL(:?1,J,K,0,1) 

00114800 

DXW  -XLC  ,L,K,0.1) 

30114900 

DXVW-XL(:X1,J,.<,C,1) 

00113000 

00115100 

DYNN-YLC,  J??,K,0,2) 

DYN  »YL(:,J?- ,K,0,2) 

00115300 

DYS  *YL(1,J  ,<,0,2) 

00115400 

3Yss»Yi(:,  jy.:,K,c,2) 

30113600 

DZFF-ZLC,  J,.-:?2,C,2) 
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ZF  «21(I,J,KP1,0,3) 

ZB  -Z1(I,J,K  ,0,3) 

ZBB-Z1(I,J,KM1,0,3) 

3£r :XE  THE  AREA  OF  THE  CONTROL  VOLUME 

XyF«3XF»DYF 

XYB«DXB«DYB 

YZE-3YE*DZE 

YZW-DYW'DZW 

ZXN-OZN*DXN 

0ZXS»3ZS*DXS 

VOL»OX:*DYJ*DZK 

VOLDT-VOL/DTIME 

ZXOYN-OZXN/OYN 

ZXOYS-OZXS/DYS 

XYOZr-DXYF/DZF 

XYOZB-DXYB/OZB 

YZOXE-DYZE/DXE 

YZOXN«DYZN/DXW 

ON»(R(I,J,K)*DYPlfRa,JPl,K)*DYJ)/(DYPl+DYJ) 
GS- (R ( : , J, K) ‘DYMl+R  < I , JMl , K) 'DYJ) / (DYMl+DYJ) 
GE- (R (I, J,K) •DXPl+R (IPl, J,K) *0X1) / (OXPl+DXl) 
GW-  (R  ( : ,  J,  K)  *DXM1  i-R  ( IMl ,  J,  X)  *0X1 )  /  (DXHUDXI ) 
ar-(R(:,J,K)*DZPl+R{l,J,KPl)*DZK)/(DZPl+DZK) 
GB- ( R  C ,  J,  K )  *  DZMl  •••R  ( I ,  J ,  KMl )  *  DZK)  /  ( DZMl  <*>DZK ) 

CN-GN*V(I,JP1,K)*0ZXN 
CS-GS«V(I,J  ,K)*OZXS 
CE-0E»5;(IP1,J,K)»DYZE 
CW-6N*'J(I  ,J,K)*DYZN 
CF-OF*W(I,J,KPl)»OXYF 
CS-63*X(I,J,K  )*OXYB 


rONOK-: . / ( ( 1 . /COND ( I, J, X) *DYJ*1 . /COND ( I , JPl , X) •DYPl ) / (DYP 1-DYJ) ) 
CONDS-: . / ( ( 1 . /COND  < I, J, K) ‘DYJ+l . /COND (I , JMl , K) 'DYMl ) / (DYMl+DYJ) ) 
CONDE-l . / < ( 1 . /COND ( I , J, X) "DXI-f  1 . /COND  < IPl , J, K) *DXP1 ) / (DXP 1+DXI ) ) 
CONDW-'.  ./<<!.  /COND  ( I,  J, X)  *0X1  +1 . /COND  ( IMl ,  J, X)  ‘DXMl )  /  (DXMl+DXI > ) 
CONDF-1 . / ( ( 1 . /COND ( I, J, K) •DZRfl . /COND (I , J, KPl) 'DZPl ) / (DZPl+DZX) ) 
CONDB-1 . / ( < 1 . /COND ( I, J, X) ‘OZH+l , /COND (I , J, XMl) ‘OZMl ) / (DZMl^DZX) ) 

CSNDN>2XOYN*CONON 

TONDS>2XOYS*CONDS 

C3ND£:-Y20XE*C0NDE 

:0NDW>Y20XW*CONDW 

CONDF>XYOZF*CONDF 

C0NDB>XY02B*C0NDB 


CEP-(A3S(CE)+CE) 'DXPl *0X1/ (DXE* (DXE+DXW  ) )/8. 
CEM-  (ASS  (CE)  -CE>  ‘DXPl  *3X1/  (DXE*  ('>XE+DXEE) )  /0 . 
CWP- (ASS  <CW) +CW) ‘DXMl *0X1/ (OXW* (DXW+DXWW) ) /8 . 
CWM- (ASS (CW) -CW) 'DXMl *0X1/ (OXW* (DXW+DXE  ) ) /8 . 

TNP-(ASS(CN)*CN)*DY?1*0YJ/(0YN*(DYN+0YS  ))/8. 
CNM- (ASS (CN’)-CS)  •DYPl  •0YJ/(0YN*(DYN+0YNN))/8. 
C3P-(A3S(CS)»CS)  'DYXl^OYJ/OYS*  (DYS+DYSS) ) /8 . 
C3M- (ASS (CS) -CS) ‘DYMl •OYJ/ (OYS* (DYS+OYN  ) ) /8 . 

Tr?-(A3S(Cr  *0201  *2ZK/ (DZF*  (DZF*0Z3  )  )/8, 

CrM-(A33(CF)-Cr ) ‘OZPl'OZX/ (OZF* (DZF-32FF) ) /8 . 
C3P-  (A33  (CB)  -CB)  ‘OZy.:  'OZK/  (OZB*  (DZB-^DZBB) )  /8  . 
C3M«(A3S(C3)-CB)  *02X1 ‘DZH/ (OZB*  (DZB-rDZF  )  )/8. 


SOllSBCO 

001:5900 


oolieioc 

00116200 

00116300 

00116400 

00116500 


00116700 

00116800 

00116900 

00117000 

00117100 

00117200 

00117300 

00117400 

00117500 

00117600 

00117700 

00117800 

00117900 

00118000 

00118100 

00118200 

00118300 

0C118400 

00118500 

00118600 

00118700 

00118800 

00118900 

00119000 

00119100 

00119200 

00119300 

00119400 

00119500 

00119600 

00119700 

00119800 

00119900 

A  ^  M  A  A 

WW  aAwwWW 

WW  •WW 

ww*«w«ww 
mamAA 
WW«AWWWW 
^A- AA/AA 
WW«AW*IWW 
•A*AA-AA 

ww*«wwww 
aa«  AAAAA 
ww*AwOww 

AA- aaAAA 
W  W •Aw  *  W w 

00120800 

00120900 

AA-AA«»^ 

w  w  •  A  J  •  •  w 

00123120 

00123130 

00123140 

AA-AA- 5A 
w  w .AW • V  w 

0  0  *23 .60 

W  W  J  *  '  W 

00123190 

•  O'' 

00123191 

00123192 

00123193 

00123194 

00123195 

00123196 

00123197 
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AE ( I,  J,  K)  — . 5  *0X1 /DXE*CE*C£?+CEH* (1 .tOXE/DXEE)  -rCWv«OXW/DXE 
AWd, .5*DXI/DXW*CW+CWM+CWP*{1.+DXW/DXWW)+CE?*0XE/DXW 
AN ( I,  J,  K)  — . 5  *DYJ/DYN*CN+CNP+CNM* (1 .+DYN/DyNN) +CSM*DYS/DYN 
AS ( I, J, X) -  .5 •DYJ/DYS*CS+CSM+CSP* (1 .+DYS/DYSS) +CNP*OYN/DYS 
AF ( I,  J,  X)  — . 5 •DZK/DZF*CF+CFP+CFM* (1 .+DZF/DZFF) +CBM*DZB/DZF 
A3 ( I, J, X) -  .5 *DZK/DZB*CB+CBM+CBP* (1 . +DZB/DZ33) +CFP*DZF/DZB 

801  ASE— CEM*DXE/DXEE 
AEER-AEE*TPD ( IP2, J, X) 'CPM (IP2, J,K) 

802  CONTINUE 

803  AWW— CWP*DXW/DXWW 
AWWR-AWW*TPD ( IM2, J, X) 'CPM ( IM2, J, K) 

804  CONTINUE 

IF  (J.LT.NJ)  GOTO  805 
ANN-0 . 

ANNR-0. 

GOTO  806 

805  ANN— CNM*DYN/DYNN 
ANNR-ANN*TPO(I,JP2,K)*CPM(I,JP2,K) 

806  CONTINUE 

IF  IJ.GT.2)  GOTO  807 
ASS-0 . 

ASSR-0, 

GOTO  808 

807  ASS— CSP*OYS/DYSS 
ASSR-ASS*TPD(I,JM2,K)*CPM(I,JM2,K) 

80S  CONTINUE 

IF  (K.IT.NK)  GOTO  809 
AFF-0. 

AFFR-0. 

GOTO  810 

809  AFF— CFM*DZF/DZFF 
AFFR-AFF*TP0(1,J,KP2)*CPM(I,J,KP2) 

810  CONTINUE 

:?  (K.GT.2)  GOTO  811 
ABB-0 . 

ABBR-C . 

GOTO  812 

811  A3B— C3?*0ZB/DZBB 
ABBR-A33*TP0 ( I , J, XM2) ‘CPM ( I , J, XM2) 

912  CONTINUE 


C  •#««»•««##■•««#«•■»# f ft 

C  •••  MODIFICATION  FOR  DECK  BOUNDARIES 

900  CONTINUE 

IF  (NODdMl,  J.X)  .EQ.O)  GOTO  901 

AHW-O.O 

AwwR-o . : 

901  CONTINUE 

IF  (NODdPI,  J,K)  ,EQ.O)  GOTO  902 

AEE-O.C 

As«£.R— 0  •  C 

902  CONTINUE 

I"  (NODC,  JXl.K)  .EQ.C)  GOTO  903 

ASS-O.O 

ASSR-C.C 


00123198 

00123199 

00123200 

00123201 

00123202 

C0123203 

00123204 

00123210 

00123300 

00123400 

00123500 

00123600 

00123700 

00123800 

00123P00 

00124000 

00124100 

00124200 

00x24300 

001.74400 

00124500 

00124600 

00124700 

00124800 

00124900 

00125000 

00125100 

00125200 

00125300 

00125400 

00125500 

00125600 

00125700 

00125800 

00125900 

00126000 

00126100 

00126200 

00126300 

00126400 

00126500 

00126600 

00126700 

00126800 

00126900 

W  W  '  WWW 
AM*  nn 

WW*X  *  aWW 

W  W  *  X  '  X  w  w 

00127300 

00127400 

00127500 

00127600 

001277CC 

00127800 

00127900 

00128000 

00128100 

ww*4wxww 

wwxxwJww 

00128400 

wwXxOwww 

ww*406ww 

W  W  A  £  O  '  w  w 
00128800 

00129000 

n  r\  *  .JQ*  «« 
ww*4..'4ww 
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903  CONTINUE 

IF  (NODa.JPl.K)  .2Q.C)  GOTO  904 

ANN-0. C 

ANNR-C.C 

904  CONTINUE 

IF  (NOO(I,J,KM1) .EQ.C)  GOTO  90S 

ABB-0. S 

ABBR-0.3 

905  CONTINUE 

IF  (NOD(I,J,KP1).EQ.O}  GOTO  906 

AFF-O.C 

AFFR-O.C 

906  CONTINUE 

AP(I,J,X)-(AE(I,w*,K)t-AW(I,J,K)-*-AN(I,J,K)t-AS(I,J,K) 
t  -t-AF  ( I ,  J,  K)  -fAB  ( I ,  J,  X)  •f'AEE-t-AWW^ANN-t'ASS-^AFF+ABB) 

6  -^CONOE 1  -t-CONOM  1  tCONONl  -t-CONDS  1  ^'CONDF 1  -t-CONDB  1 

AE  ( 1,  J,  X)  -AE  ( I,  J,  X)  *CPM ( IPl ,  J, K)  <t>CONDSl 
AW  ( I , X)  -AW  ( I ,  J,  X)  *CPM  (INI ,  J,  X)  -t-CONDWl 
AN(l,J,X)-AN(I,J,X)*CPM(l,J?l,K)-»-CONDNl 
AS(I,J,X)-AS<I,J,X)*CPM(I,JM1,K)-^C0NDS1 
AF  ( I ,  U,  X)  -AF  ( I ,  J,  X)  ‘CPM  ( I ,  J,  KPl )  •t’CONDFl 
AB  ( I ,  J,  X>  -AB  ( I , X)  *CPM  ( I ,  J,  KMl )  -^CONDBl 

SP  { I ,  J,  X)  —ROD  ( I ,  J,  X)  •VOLOT'CPM  ( I ,  J,  K) 

SO  ( I , X>  ■  ROD  (I ,  J,  X)  •VOLOT*TOD  ( I ,  J, X)  ‘CPM ( I ,  J,  X) 

SU  ( I ,  J,  X)  -SU  ( I ,  J,  X)  4AEER-^AWWR4ANNR-t>ASSR<*'AFFRtABBR 
100  CONTINUE 

C  •••  TAXE  CARE  OF  9.C.  THRU  AN,AS,AE,AW,AF,AB,S?  AND  SU 

C  •••  RADIUS  DIRECTION 

DO  50C  >2,NI 
DO  50C  X-2,NK 

S?(I,2,X)-SP(:,2,X)*AS(I,2,X) 

CC  SP(I,2,X»-SP(:,2,K)-AS(I,2,X) 

CC  SU(I,2,X)-SU(:,2,X)+2.C*AS(I,2,X)*TPD(I,:,X) 

S?  ( I ,  N  J,  X)  -SP  ( I ,  N  J,  K)  -AN  ( I ,  NJ,X) 

SU  ( I ,  N  J,  X)  -SU  ( I , J,  x)  -2 .  ‘TPD  ( i,  njpi  ,  n)  •  an  ( i ,  n  j,  K) 
AS(I,2,X)-0. 

AN<I,NJ,X)-0. 

500  CONTINUE 

C  CYLIC  CONDITIONS 


0C129300 

00129400 

00129500 

00129600 

00129700 

00129600 

00129900 

00130000 

00130100 

00130200 

00130300 

00130400 

00130500 

00130600 

00130700 

00130800 

00130900 

00131000 

00131100 

00131200 

00131300 

•CPM(I,J,X)00131400 

00131500 

00131600 

00131700 

00131800 

00131900 

00132000 

00132100 

00132200 

00132300 

00132400 

00132500 

00132600 

00132700 

00132800 

00132900 

00133000 

00133100 

00133200 

00133300 

00133400 

00133500 

00133600 

00133700 

00133800 

00133900 

W  M  *  WWW 

00134100 

00134200 

00134300 

00134400 

00134500 


DO  600'  J-2,NJ 

00134600 

DO  600  X-2,NX 

00134700 

SU(2  ,J,X)-SU<2  ,U,K)-rAW(2  ,J,R)*T(1  ,J,K) 

00134800 

SU<NI,J,X)-SU(NI, J,X)+AE(NI,J,X)*T(NI?1,J,K) 

C01349C0 

ft 

AW (2  ,J,X)-C.O 

00135000 

ae(n:, j,x)«o.o 

wwXw<««ww 

600  CONTINUE 

00135200 

00135300 

C  •••  END  OF  SPHERE 

C01354C0 

wJa^Wvwww 

DO  700  1=2, n; 

CO1356C0 

DO  700  J-2,NJ 

00135700 

S?(I, J,2)=S?( J,2)-A3(I, J,2) 

WW.*jNr8WW 

3?  { I ,  U,  NX )  =3?  ( ,  J,  NX)  -A?  ( I ,  J,  NX) 

wwiw<#7ww 

AS(I,U,2)-0. 

wJlwvwww 
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Ar (I,J,NK)-0. 
700  CONTINCE 


•••  ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  300  K«2,NK 
DO  300  J-2,NJ 
DO  300  1-2, NI 

AP<I,J,K)-AP(I,  w',K)-S?(I,J,K) 

300  CONTINUE 


C  ***  VOLUME  HEAT  SOURCE  INPUT 

VOLT-0. 0 
DO  113  1-2, NI 
DO  113  J-2,NJ 
DO  113  K-l€,17 

IF  (NHSZ(I,J,K) .EQ.O)  GOTO  113 
DXI  -XL(I  ,J,K,0,0) 

DTJ  -yL(I,J  ,K,0,0) 

OZK  •ZL(I,J,K  ,0,0) 
VOL-OX1*OYJ»OZK»H»H*H 
VOLT-VOLTfVOL 
113  CONTINUE 

DO  111  1-2, NI 
DO  111  J-2,NJ 
DO  111  X-l€,17 

IF  {NHSZ(I,J,K) .EQ.O)  GOTO  111 
OXI-i’d  ,J,K,0,C) 

OYJ  -ad.J  ,K,0,0) 

OZK  -ZLd,J,K  ,0,0) 

QQQ-Q»H/ {O0«CP0»RHO0«TA) 
VOL-OXI«OYJ*DZK 

SU d ,  J, K)  -SU  (I ,  J,  K)  ♦VOL •QQQ/VOLT 
ill  CONTINUE 


C  RADIATION  INTO  THE  WALL 

DO  310  K-3,NKM1 
DO  310  1-2, NI 
DXN  -XI (I  ,NJRA,K,C,2) 

3ZN  -ZLd,XJRA,K  ,0,2) 

3ZXN-DZN‘DXN 
:i-(K-3)''(xi-:)  -i-i 

SU ( I , X JRA, X ) -SU ( I , N JRA, K ) -RWALL ( I I ) *D2XN 
310  CONTINUE 

C  •••  END  C?  RADIATION 

0  SOLVE  FOR  T 

writtCS,*)  'calling  trid' 

00141300 

CALL  TRID  (2,2,2,NI,XJ,NK,T) 

C  RESET  TEMPERATURE  AT  R-O.C  AND  END  OF  SPHERE 

DO  81  K-i,NXPl 
AVT-C.C 
DO  82  :=2,NI 
AVT-AVT*(T(I,2,KI/N:y:) 

82  CONTINUE 

DO  83  :-i,Ni?: 

T(I,1,K)-AVT 


CC136100 

00136200 

00136300 

00136400 

00136500 

00136600 

00136700 

00136800 

00136900 

00137000 

00137100 

00137200 

00137300 

00137400 

00137500 

00137600 

00137700 

00137800 

00137900 

00138000 

00138100 

00138200 

00138300 

00138400 

00138500 

00138600 

00138700 

00138800 

00138900 

00139000 

00139100 

00139200 

00139300 

00139400 

00139500 

00139600 

00139700 

00139800 

00139900 

00140000 

00140100 

00140200 

00140300 

00140400 

001405CC 

00140501 

00140303 

00140504 

w  w  *  n wOw w 

00140700 

00140800 

0014090C 

0C141CCC 

00141200 


AA< /• CAA 
AA^  /*  ^AA 

w  w  n  •  '  w  w 

00141800 

00141900 

AA^ /AAAA 
AA  -  /  AA 

00142200 

AA1 /AAAA 

00142400 
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83  CONTINUE 
81  CONTINUE 

DO  74  I»1,NIP1 
DO  74  J«1,NJP1 
T(I,J,1)-T(I,J,2) 

T(I,J,NKP1)»T(I,J,NK) 

74  CONTINUE 

**•  for  SURFACE  HEAT  EXCHANGE  WITH  SURROUNDING 

DO  84  I>>2,NI 
DO  84  K-2.NK 
DYJ-yL(l,NJ,K,0,0) 

T(I,NJPl,K)-{2. 0 ‘COND ( I , N J, K) ‘T ( I , N J, K) /DYJ+HCOEF  »TINF ) / 
«  (HCOEF+2.0*COND(I,NJ,K)/DYJ> 

84  CONTINUE 


FOR  CYLIC  CONDITION 

DO  80  J-1,NJP1 
DO  80  K«1,NKP1 
T(l,J,K)-T(NI,J,K) 
T(NIP1,J,K)-T(2,J,K) 
CONTINUE 

RETURN 

END 


80 


■  i ••"ysTnnr* ••  •  •  »*T!7«T7rTrTTT7m«m7 
SUBROUTINE  CALC 


S0142500 

00142600 

00142700 

00142800 

00142900 

00143000 

00143100 

00143200 

00143300 

00143400 

00143500 

00143600 

00143700 

00143800 

00143900 

00144000 

00144300 

00144400 

00144500 

00144600 

00144700 

00144800 

00144900 

00145000 

00145100 

00145200 

00145300 

00145400 

00145500 

00145600 

00145700 

00145800 

00145900 

00146000 

00146100 

00146200 

00146300 

00146400 

00146500 

00146600 

00146700 

00146800 


COMMON/R4/XC(93),YC(93),ZC(93),XS(93»,YS(93),ZS(93>, 
t  DXXC ( 93 ) , D YYC ( 93 ) , OZZC ( 93 ) , DXXS (93),DYYS{93),D2ZS(93) 

COMMON/BL1/OX,DY,DZ,VOL,DT1«E,VOLDT,THOT,TCOOL,PI,Q,QR 
CO^O«)N/BL7/N!,N:P1,NIM1,NJ,NJP1,NJM1,NK,NKP^NKM1 
t  ,  NIP2 ,  N JP2 , NKP2 , NA, NAP 1 , KAMI , NB, NBPl , NBMl , XRUN , NCHIP , N JRA, NWRP 
COMMON/BLl?/  NWRITE,NTAPE,NTMAXO,NTREAL,TIME,SORSU!4,  ITER 
COMMON/BL14 /HCOEF , TIN", CNT, ABTURB, BTURB, VISL, VISMAX, QCORRT, PMl , PX200:46900 
C0MM0N/BL:6/  const: , C0NST2, C0NST3, C0NST4, C0NST6, NT, UO , K, UGRT, BUOY, 00147000 
(  C?0,PRT, CONDO, Vise, RKOO, HR, TR,TA,DTEMP, WRITE, TTA?E,TXAX,GC,RAIR0C14710C 
COMMON/3L22/:CHPB(:0)  ,NCHPI  CO  ,  JCHPB(IO)  ,SCHPJ  (10) ,  KCHPB  (10) ,  00147200 

i  MCHPK  C  0 ) ,  TCHP  CO ) ,  CPS  ( ICT) ,  CONS  CO),  WFAN  CO) 

OOMMON/B131/  TOD (22, 16, 32),  ROD (22, 16, 32), POD (22, 16,  32) 

(  ,C0D(22,16,32),U0D(22,16,32),V0D(22,16,32),W0D(22,16,32) 

COMMON/ai32/  T(22,ie,32),R(22,16,32),P(22,16,32) 

(  ,C(22,  16,  32)  ,'J  (22, 16,32)  ,V(22, 16,32)  ,W(22, 16,32) 

COMMON/BL33/  TPD (22, 16, 32) ,RPD (22, 16, 32) , PPD(22, 16, 32) 
i  ,CPD(22, 16,32),U?D(22,16,32),VPD(22, 16,32),W?D(22,16,32) 

COMMON/BL34 /  HEIGHT (22,16,32), REQ (22, 16, 32) , 

(  SMP (22,  16, 32) , SMPP (22, 16,32) ,PP (22,16, 32) , 

t  3U(22,16,32),OV(22,16,32),OW(22,16,32) 

COMMON/BL36/AP (22, 16, 3?) , A£ (22, 16,32) ,AW(22, 16,  32) ,  AN (22, 16, 32) , 
i  AS (22, 16, 32) , AF (22, 16,32) ,AB(22, 16, 32) , 

t  SP(22,  :6,32),S'J(22,16,32),RI(22,16,32) 

COMMON/3L37/VIS(22, 16, 32) , COND(22, 15, 32) , NOD (22, 16, 32) , RWALL(579) 

S  , C?M(22, 16, 32) , KSZ (3,2) ,NHSZ (22, 16, 32) ,RESORM(93) 

COMMON/3139/ALEW, PCCRVE, CONSRA, PCURM1,P SOUTH, QCORR, PERROR 


00147300 
00147400 
""147500 


00147600 
00147700 
00147800 
00147900 
0G1480CO 
00148100 
00148200 
00148300 
00148400 
00148500 
''"148600 


A 


CALCULATE  COEFFICIENTS 

00  100  K=2,NK 
KP2»K-? 

KPl-K*i 


00148800 

00148900 

0G1490G0 

00149100 

00149200 

00149300 

00149400 
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XM2-K-2 
DO  ICC  J*2,NJ 

w?2»ij+2 

JPI-JtI 

J>52»J-2 

DO  IOC  >2,NI 

IP2-I-2 

IK2-I-2 

IF  (I.ZQ.2)  IM2-NIM1 
IF  (I.ZQ.NI)  IP2-3 

CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

0XPl<iXL(IPl,J,K,0,0) 

OXI  -XL(1  ,J,K,0,0) 

0XM1-XL(IH1,J,K,0,0) 

DYP1-YL(:,JP1,K,0,0) 

OYJ  «YL(I,J  ,K,0,0) 

OYM1«YL(:,JM1,K,0,0) 


THE  AREA  OF  THE  CONTROL  VOLUME 

CXYF«OX:*DYF 

0XY3»DX3*DYB 

SYZEOVZOZE 


COIOSCC 

C0X49600 

C01497CC 

C0149800 

00149900 

0015CCCO 

001501CO 

C015C2C0 

C015C300 

001504CC 

00150300 

0015C6CO 

0015C700 

00150800 

001SC900 

00151C00 

00151100 

001512C0 

00151300 

00151400 

00151500 

00151600 

00151700 

00151800 

00151900 


S7.P1-Z1(:,J,KP1.0,0) 

00152CC0 

OZK  -ZL(:,J,K  ,0,0) 

00152100 

DZM1-ZL(:,J,KM1,C,0) 

00152200 

00152300 

SURFACE  LENGTH  OF  THE 

CONTROL  VOLUME 

00152400 

00152500 

0XN>XL(:,JP1,K,0,2) 

00152600 

DXS«XL(:,J  ,K,0,2) 

00152700 

DXF-XL<:,J,XP1,0,3) 

00152800 

0XB«XL(:,J,X  ,0,3) 

00152900 

C0153SC0 

DYF«YL(:,J,KP1,C,3) 

0015310C 

:y3«yl(:,j,k  ,o,3) 

00153200 

DYE»Y1(:?1,J,K,0,1) 

00153300 

DYW-YH:  ,J,K,C,1) 

00153400 

0015350C 

DZE-ZL<:?1,J,K,0,1) 

00153600 

CZW-ZLC  ,J,K,0,1) 

00153700 

DZX-ZLC,  J?1,K,0,2) 

00153B00 

DZS»ZL<:,J  ,K,C,2) 

00153900 

^  w *  9^  wv M 

CENTRAL  LENGTH  CF  THE 

STAGGERED  CONTROL  VOLUME  FOR  T 

WM*^*I*W 
«  A 

DXEE»XL(:?2,J,K,0,:) 

CXE  «XL(:?1,J,K,C,1) 

w  w  *  9S  n  w  w 

DXW  .XLC  ,J,K,0,1) 

ww*9n9ww 

Dxww-xL(:xi,j,K,o,:) 

00154600 

0C154700 

DYNN-YLC,  J?2,K,C,2) 

00154800 

DYS  -YLC, J?1,K,0,2) 

00154900 

DYS  -YLC,-*  ,i<,0,2) 

3YSS«YL(:,JM1,K,C,2) 

00155100 

DZ?F*ZL(:,J,KP2,0,3) 

DZF  »ZL(:,J,KPl,(;,3) 

3Z3  •Z1(:,J,K  ,0,3) 

£55*''' 

DZ3B-ZL(:,J,XM1,C,3) 

00155€:0 

/  A  w  w  w  w 

'  ^  t  S  Q  ^ 


CC* 
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DYZW-DYWDZW 

OZXN-DZK*OXN 

DZXS«OZS*DXS 

VOL»DXI*3YJ*OZK 

VOLOT-VOL/DTIME 

ZXOYM-DZXN/DYN 

ZXOYS-OZXS/DYS 

XYOZF-DXYP/DZF 

XY0ZB-DXY8/DZB 

YZOXE-DYZE/DXE 

YZOXW»DYZM/DXW 

ON*  <R  ( I ,  K)  'OYFl+R  ( 1 ,  JPl ,  K)  *DYJ)  /  <DYP1+DYJ) 
GS« (R ( I , J, K) ‘DYMl +R ( 1 , JMl , K) -OY J) / <DYM1+DYJ) 
GE»<R(I,J,K)«0XP1+R(IP1,J,K)*DXI)/(DXP1+DXI) 
GW- (R  ( I ,  •*,  K) 'OXHl +R  ( IMl ,  J,  K)  *0X1 )  /  (OXMl+DXI ) 
GF-(R(1,J,K)‘0ZP1+R(I,J,KP1)*0ZK)/(DZP1+DZK) 
6B-  (R  ( 1 ,  J,  K)  *DZMl-)-R  ( I ,  J,  KMl )  'CZK)  /  (DZMIOZK) 

CN-6N*V(:,JPl,K)*0ZXN 
CS-GS*V(I,J  ,K)*0ZXS 
CS-6E*a(IPl,J,K)*DYZE 
CW-GW*0(:  ,J,K)»0YZW 
CF-GF*K(I,J,KP1)«0XYF 
CB-GB*W(I,J,K  )»0XYB 


CONON-1 . / ( ( 1 . /COND ( I, J, K) ‘OYa+l . /COND (1, JPl, K) ‘DYPD / (DYP1*DYJ) ) 
CONOS-l . / ( ( 1 . /COND ( I ,  J,  K) *DYJ+X . / COND  ( I , JMl , K ) • DYMI ) / ( D YMl +DY J) ) 
CONDE-: ./<<!. /COND ( I, J, K> ‘OXI+l . /COND (IPX, J, K) 'DX?!) / (DXPX+DXI) ) 
CONDW-1 . / ( ( X . /COND < I, J, K) ‘DXl+X . /COND (IMX, J, K) 'DXMl ) / (DXMX+DXI) ) 
CONDF-: . / ( ( X . /COND ( I ,  J,  K) *DZK+X . /COND ( I , J, KPX  >  *DZP 1 ) / (DZP X+DZK) ) 
CONDB-i . / ( <  X . /COND  < I , J, K» ‘DZK+X . /COND ( I , J, KMX ) 'DZMX ) / (DZMX+DZK) ) 

C0NDNX-2X0YN*C0NDN*ALEH 
CONDS  X-2X0YS ‘ CONDS  *  ALEW 
CONDEX- YZOXE • CONDE • ALEW 
CONDWX«YZOXW*CONDW*ALEW 
CONDF  X-XYOZF*  CONDF • ALEW 
CONDB 1 ■ X YOZ  B • CONDB • ALEW 


CEP-  (A3S  (CE)  -cCE)  ‘OXFi  *0X1/  (DXE*  <OXE<t-DXW  ) )  /S . 
CEM-(A5S(CE)-CE)*DXP:*0XI/(DXE*(DXE+DXEE))/8. 
CWP- (A3S (CW) tCW) •0XM1*DXI/ (DXW* (DXW+DXWW) ) /8 . 
CWM-(A3S(C'a’>-CW)  •0XM:*DXI/(DXW*  (OXW+DXE  ) )  /8. 

CNP-  (A3S  (CN)  +CN>  ‘DY?!  •Q'lJ/  (DYN*  (DYN+DYS  )  >  /8 . 
CNM-(A3S(CN)-CN)*DYP1*DYJ/(DYN*(0YN+DYNN) )/8. 
CSP-(A3S{CS)+CS)*DYM1*DYJ/(DYS* (OYS+DYSS) ) /8. 
CSM-  (A3S  (CS) -CS)  *DYM1  •O'iJ/  (DYS*  (DYS+DYN  ) » /8 . 

CFP* (ASS (CFl tCF) *D2P:*DZK/ (DZF* (DZF+DZB  ) ) /8. 
CFM- (ASS (CF) -CF) 'DEPl ‘DZE/ (DZF* (DZF+DZFF) ) /8 . 
CBP-  (A3S  (C3)  ■►CB)  'OZMl  ‘DZK/  (DZB*  (DZB+DZBB) )  /8 . 
CM(-(A3S(Ca)-CB) ■DZM1*DZK/(DZB* (DZB+DZF  ) )/8. 


AE  ( I ,  J,  .  5  •  OXI  /DXE  ‘CE+CEP+CEM*  ( X .  -DXE/DXEE )  •  CWX* OXW/ DXE 

AW( I, J, K) -  .5 *DXI/DXW*CW+CWM+CWP* (1 .rOXW/DXWW) rCE?*DXE/DXW 
AN ( I, K)  — . 5 •DYJ/DYN*CN+CNP+CNM* (1 . tOYN/DYNN) fCSX*OYS/DYN 
AS  ( I,  J,  :<)  -  . 5  *OYJ/DYS»CS+CSM+CS?*  (1  .-DYS/DYSS>  -^CNP'OYN/DYS 
AF  ( I,  J,  :<)  — .  5  ■DZK/DZF*CF-CFP+CFM*  (1 . -OZF/DZFF)  •C3X*0Z3/DZF 
AB(I,  .i*DZK/DZ3*C3+CBM+CB?*  (1  .OZB/DZ33)  *CF?*0ZF/0Z3 


801  AEE— CEX*DXE/DXEE 


S0X56300 

OrX56400 

00X56500 

00X56600 

00X56700 

00X56800 

00X56900 

00X57000 

00X57X00 

00X57200 

00X57300 

00X57400 

00X57500 

00X57600 

00X57700 

00X57800 

00X57900 

00X58000 

00X58X00 

00X58200 

00X58300 

00X58400 

00X58500 

00X58600 

00X58700 

00X58800 

00X58900 

00X59000 

00X59X00 

00X59200 

00X59300 

00X59400 

00X59500 

00X59600 

00X59700 

00X59800 

00X59900 

00X60000 

00X60X00 

00X60200 

00X60300 

00X60400 

00X62700 

00X62800 

00X62801 

00X62802 

00X62803 

00X62804 

00X62805 

00162806 

00162807 

00X62808 

00X62809 

00X628X0 

00X628X1 

00162812 

001628X3 

00X62814 

00X62815 

00X62816 

001628X7 

00162818 

00162619 

00162820 

00162821 

00162822 

00162823 

.0162830 


CJ  oo 


AEER-AEE*CPD ( I?2, K) 

802  CONTINUE 

803  AMf»>CNP*DXW/OXHH 
AMim-ANW*CPD ( IM2, J, K) 

804  CONTINUE 

IF  (J.LT.NJ)  GOTO  8C5 
MIM-O. 

ANNR-0. 

GOTO  806 

805  ANN— CNM*DTN/DYNN 
ANNR«ANN*CP0(I,JF2,K) 

806  CONTINUE 

IF  (J.GT.2)  GOTO  807 
AS8«0. 

AS8R-0. 

GOTO  808 

807  ASS— csp*oys/Dyss 
AS8R«ASS*CP0(I,JM2,K) 

808  CONTINUE 

IF  (K.IT.NK)  GOTO  809 
AFr«0. 

AFFR-0. 

GOTO  810 

809  AFF— CFM*DZF/DZFF 
AFFR«AFF*CPD(I,J,KP2) 

810  CONTINUE 

IF  (X.GT.2)  GOTO  811 

A81-0. 

AUR-0. 

GOTO  812 

811  A8B— CBP*DZB/0ZBB 
ABBR«ABB*CP3(I,J,XM2) 

812  CONTINUE 


MODIFICATION  FOR  DECK  BOUNDARIES 
900  CONTINUE 

IF  (NODCXl.J.X)  .EQ,C>  XTC  9C1 

AWW-0.0 

AWMR-O.S 


901  CONTINUE 
IF  <N0D(IP: 
AEE-O.C 
AEER-O.C 


,J,K).CQ.C)  GOTO  902 


902  CONTINUE 

IF  (N0D(I,JX1,X) .EQ.O) 

ASSoO.C 

ASSR'^C  •  C 


GOTO  903 


903 


lONTINUE 

IF  (*jOD(I,J?l,K)  .EQ.G)  GOTO  904 

ANN«0 . C 

ANNR»0.C 


9C4  CONTINUE 

I?  (NODd,  J.KXl)  .£2.0)  GOTO  905 
A3B>0.2 


00162900 

00163000 

00163100 

00163200 

00163300 

00163400 

00163500 

00163600 

00163700 

00163800 

00163900 

30164000 

00164100 

00164200 

00164300 

00164400 

00164500 

00164600 

00164700 

00164800 

00164900 

00165000 

00165100 

00165200 

00165300 

00165400 

00165500 

00165600 

00165700 

00165800 

00165900 

00166000 

00166100 

00166200 

00166300 

00166400 

00166500 

00166600 

00166700 

00166800 

00166900 

00167000 

00167100 

00167200 

00167300 

00167400 

00167500 

00167600 

001677C0 

00167800 

00167900 

00168000 

00168100 

00168200 

00168300 

00166400 

00168300 

00168600 

00168700 

00168800 

00166900 

00169000 

00169100 

00169200 

CC1693CC 

C016940C 

C0169300 

00169600 
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A3aR>0.C 

905  COSTINCE 

I?  <N00(I,J,KP1) .EQ.O)  GOTO  906 

AEE-O.C 

A?FR*0 . 0 

906  CONTINUE 

C  «««#«**#««tf«*««#«t**«t«#««»««»*««lt»*t«*«t«««««*t*«*«**#« 

«  -fABE-t-AWW-t-ANN-f  ASS-i-AFF-t-ABB) 

C  -t-CONDEl-t-CONOWl-t-CONDNlt-CONDSl-t-CONDFl-t-CONDBl 

AS(Z,J,X)»AE(I,J,K)  KONOEl 
AN ( I , J, X) -AH ( I , J, K) +CONOW1 
AN  ( I ,  w%  X)  «AN  ( I ,  J,  K)  f  CONON 1 
AS  ( X ,  J,  X) -AS  ( I ,  J,  K) -t^CONOSl 
AF  ( X ,  J,  X)  -AF  ( X ,  J,  K)  +CONOF1 
AB(X,J,X)-AB(X,J,K)  -t-CONDBl 

S?  ( X ,  J,  X)  —ROD  ( X ,  J,  X)  'VOLOT 

SU  ( X ,  J,  X)  -  ROD  { I ,  J,  X)  •VOLOT*TOO  ( X ,  J,  X) 

SU  ( 1 ,  J,  X)  -SU  ( X ,  J,  K>  ^AEER-fAHHR^ANNR-i-ASSR^-AFFR^-ABBR 
100  CONTXNUE 

C  *•*  TAXE  CARE  OF  B.C.  THRU  AN,AS,AE,AH,AF, ASrSP  AND  SU 
C 

C  RADXUS  DXRECTXON 

DO  500  >2, NX 
DO  500  K»2,NK 

CC  $?(X,2,X)-SP(X,2«K)*AS(I,2,K> 
S?(X,2,X)-SP(X,2,X)-AS(X,2,X) 
SO(I,2,X)-SO(X,2,R)+2.0«AS(I,2»X) •CP0(X,1,X) 
S?(I,NJ,K)-SP(I,NJ,K)-AN<X,NO,K} 
SU<I,NU,X)-SU(I,NJ,X)+2.*CP0{I,NJ?l,R)«AN(I,NJ,K) 
AS(X,2,X)«0. 

AN(I,NJ,X)-0. 

500  CCNTXNUE 


CTLIC  CONDITIONS 


DC  60 G  w*-2,NJ 
DO  6CC  X-2,NK 

SJ(2  ,J,X)-SU(2  ,J,X)+AW(2  ,J,K)*C(1  ,J,X) 

SO  (NI,  J, :<)  -SU  (NI,  J,  X)  -AE  (NX ,  J,  K)  *C  {NIPl,  J,  X) 
AW(2  ,J,X>-0.0 
A- (NI,J,X)-0,0 
600  CONTINUE 


« 


* 


END  OF  SPHERE 


700 


DO  7CC  >2,NI 
DO  700  J-2,NJ 

S?(I  2)»SP(I  t  2)  '^AB  (  I  r  V  f  2) 

S?  ( J, NX)  «S?  ( I ,  J, NX)  +AF  (I ,  J, NX) 
ABC,  J,2)»0. 

AFC,  J,NX)-0. 

CONTINUE 


ASSEX3UE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 
DO  300  :<»2,NX 


/wV 

00169800 

00169900 

AM A 

vw<b  /vwww 

00170100 

A MA AAA 
wVi. 

A  A-  AA 

/wwwv 

00170^00 

00170500 

A  A-  AA  CA  A 

w w  ^  /  w  OvU 

00170700 

00170800 

00170900 

00171000 

00171100 

00171200 

C0171300 

00171<00 

00171500 

00171600 

00171700 

00171800 

00171900 

00172000 

00172100 

30172200 

00172330 

0C172<00 

00172500 

00172600 

00172700 

30172800 

00172900 

00173000 

00173100 

00173200 

00173300 

03173<00 

00173500 

00173600 

00173700 

00173800 

00173900 

AA-A/AAA 

'*1 

A  •  A/  •  -  A 

ww*  IH  • 

:3i7<2:o 

::i7<30c 

yy  ^  i  ^  *t  ySm 

^  •  •  h  «  V 
«A*A/2«A 

AA*  A/AAA 
W  A  /  *1  •  w  W 

0017<800 


AA*  -IS*  AA 

ww*  f  ^  »y^ 

:0175203 

AA*  Ar^AA 

W  V  *  I  ^  y\J 
AA  -  *7S/aa 

ysj  ^  I  y\y 
A  A' assaa 

y  y  '  y  yyy 
aa« 

w  w  •  i  yyySJ 


AA- ASCaa 
WW*  •  yZy>J 

:oi73s:o 

-  A 

ww*  I  C • yy 

A  A  •  A  A  5  A 

ww*  •  y£  yy 
-A  -  A£:*;aa 
y  ^  I  y  y  yy 

«»A«  Afi/AA 
y  y  m  I  C*t  yy 
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DO  3CC  J«2,NJ 
DO  300  I»2,NI 

AP(I,J,K)-AP{I,J,K)--SP(I,J,  K> 
300  CONTINUE 


C  *•*  VOLUME  MASS  SOURCE  INPUT 

VOLT-0.0 
DO  113  1-2, N1 
DO  113  J-2,NJ 
DO  113  K-16,17 

IF  (NHSZ(I,J.K) .EQ.O)  GOTO  113 
DXX  -XL (I  ,J,K,0,0) 

OYJ  -YL{I,J  ,K,0,0) 

OZX  «ZL(I,J,K  ,0,0) 

V0L«0X1»DYJ*DZK*H*H*H 
VOLT-VOLT+VOL 
113  CONTINUE 

DO  111  I-2,NI 
DO  111  J-2,NJ 
DO  111  X«l€,17 

IF  (NH8Z(I,J,K) .EQ.O)  GOTO  111 
OXI  -XL(I  ,U,K,0,0) 

OYJ  -YKl.J  ,K,0,0) 

OZX  -ZL(1,J,K  ,0,0) 

QQQ-Q«H/ (UO«CPO*RHOO*TA) 

QMS-  1.3 

QMS  •  QM8*H/(UO*RHOO) 

VOL-DXI*OYJ»OZX 

8U ( I, J, X) -SU ( I , J, X) ♦VOL*QMS/VOLT 
111  CONTINUE 

C  •••  SOLVE  FOR  C 

CALL  TRIO  (2,2,2,N1,KJM1,NX,C) 

C  ••••  RESET  CONCENTRATION  AT  R-0.0  AMO  END  OF  SPHERE 

00  81  X-1,NKP1 

AVT-O.C 

DO  82  1-2, N: 

AVT-AVTMC(;,2,K)/NIM1) 

82  COXTISUE 
DC  83 

83  CONTINUE 
81  CONTINUE 

DO  74  :-:,n:pi 
DO  74 

c(i,j,:)»c(:,u,2) 

C(I,J,NXP1)=C(I,J,NK) 

74  CONTINUE 

0  FOR  SURFACE  MASS  EXCHANGE  WITH  SURROUNDING 

DO  84  :-2,n: 

DO  84  K«2,NX 

c{i,nu?:,k)=c(:,nj,k) 

G4  CONTINUE 


C  FOR  CYLIC  CONDITION 

DO  80  U=:,NU?1 


00176500 

00176600 

00176700 

00176800 

00176900 

00177000 

00177100 

00177200 

00177300 

00177400 

00177500 

00177600 

00177700 

00177800 

00177900 

00178000 

00178100 

00178200 

00178300 

00178400 

00178500 

00178600 

00178700 

00178800 

00178900 

00179000 

00179100 

00179200 

00179300 

00179400 

00179500 

00179600 

00179700 

00179800 

00179900 

00180000 

00180100 

00180200 

00180300 

00180400 

00180500 

00180600 

00180700 

00180800 

00180900 

00181000 

00181100 

00181203 

00181300 

00181400 

30181500 

00181600 

001817CC 

00181800 

00181900 

00182000 

00182100 

00182200 

0018230C 

00182400 

00182500 

00182600 

00182700 

00182800 

00182900 

00183000 

0C1831CC 

.00183200 
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DO  80  K-1,NKP1  00183300 

C(1,J,K)-C(NI,J,K)  00183400 

C(NIP1,J,K)-C(2,J,K)  00183500 

80  CONTINUE  00183600 

00183700 

RETURN  00183800 

END  00183900 

00184000 

00184100 

C  00184200 

c  00184300 

SUBROUTINE  CALU  00184400 

C  00184500 

*  C(»]MON/R4/XC(93),yC(93)«ZC(93),XS(93),yS(93),ZS(93),  00184600 

i  0XXC(93),0yYC(93),0ZZC(93).DXXS(93),Dm(93),DZZS(93)  00184700 

COHMON/BL1/DX.DY,OZ,VOL,OTIME.VOLDT.THOT.TCOOL,PI,Q,QR  00184800 

«  CC»040N/BL7/NI,NIP1,KIM1,NJ,NJP1,NJM1,NK.NKP1,NKM1  00184900 

S  ,NIP2,NJF2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NHRP  00185000 
C0MN0N/BL12/  NHRITE, NTAPE,NTMAXO,NTREAL, TIME, SORSUM,  ITER  00185100 


C««f0N/BL14/HCOEr,T:NF,CNT,ABTURB,BTURB,VISL,VISMAX,QCORRT,PMl,PM20Ul85200 
CO(mON/BL16/  CONSTl,CONST2.CONST3,CONST4,CONST6, NT, U0,H,UGRT, BUOY, 00185300 
6  CPO, PRT, CONDO, VISO, RHOO ,  HR,  TR,  TA,  DTEMP, TNRITE, TTAPE, TMAX, CC, RAIR00185400 

00185500 
00185600 
00185700 
00185800 
00185900 
00186000 
00186100 
00186200 
00186300 
00186400 
00186500 
00186600 
00186700 
00186800 
00186900 
00187000 

C(mMON/BL37/  VIS(22, 16,32) , CONO (22, 16,32) ,NOD (22, 16, 32) ,RWALL(579)00187100 


,CPM(22, 16,32) ,KSZ (3,2)  ,NHSZ (22, 16,32) ,RESORM( 93) 

00187200 

00187300 

CALCULATE  COEFFICIENTS 

00187400 

00187500 

DO  ICC  K-2,NK 

OOIO^SOO 

j<?2-K*2 

00187700 

K?1»K*1 

00187600 

KMl^K-l 

C0187900 

KM2-K-2 

C0188C0C 

DO  ICC  J»2,NJ 

00188100 

J?2-Jf2 

0018820C 

JPl-Jfl 

00188300 

JMl-J-1 

00188400 

JM2-J-2 

00188500 

DO  IOC  >2,n: 

00188600 

IP2-I*2 

00168700 

IPl-I-l 

00188800 

IM1-I-: 

00188900 

IM2-I-2 

00189000 

IF  (:.EC.2> 

001891CC 

IF  (:.E3.2)  INtZ-NIMl 

001892C0 

IF  (I.EQ  3)  IM2-NI 

0018930C 

IF  C.EQ.NI)  :P2=3 

00189400 

G01895CC 

00189600 

CENTSAl  lEXGTh:  0?  THE  SCALF,  CONTROL  VOLUME 

001897CC 

C0189800 

DXPi=<xL(i?i,.;,;<,  1,0 

C0189900 

DXI  =XL(I  ,J,K,  1,0 

001900CO 

COMMON/BL20/SIG11 (22, 16,32)  ,SIG12 (22, 16,32) ,SIG22 (22, 16,32) 

6  ,SZG13 (22, 16,32)  ,SIG23 (22, 16,32) ,SIG33 (22, 16,32) 

C0MH0N/BL22/1CHPB(1C)  ,NCHP1  (10) ,  JCKPBdO)  ,NCHPJ(10)  ,KCHPB(10) , 

6  NCHPK(1C),TCKP(10),CPS(10),CONS(10),WPAN(10) 

COMMON/BL31/  TOD(22,:6,32),ROO(22,16,32),POD(22,16,32) 

6  ,COO(22,16,32),UOD(22,16,32),VOD(22,16,32),NOD(22,16,32) 

C0MM0N/BL32/  T(22, 16, 32) ,  R(22, 16,32) ,P(22, 16,32) 

6  ,C(22, 16,32) ,U (22, 16,32) ,V(22, 16,32) ,N(22, 16,32) 

COMHON/BL33/  TPO (22, 16, 32) , RPO (22, 16, 32) , PPD (22, 16, 32) 

6  ,CPD (22,  16, 32) ,UPO (22, 16,32) , VPD (22, 16, 32) ,WPD  (22, 16, 32) 

COHMON/BL34 /  HEIGHT (22, 16, 32) ,  REQ (22, 16, 32) , 

6  SMP  (22,  16, 32) ,  SMPP  (22, 16, 32)  ,PP (22, 16, 32) , 

6  DU(22,16,32),0V(22,16,32),DH(22,16,32) 

COMHON/BL36/AP (22, 16, 32) , AE (22, 16,32) ,AH(22, 16, 32) , AN (22, 16, 32) , 
6  AS (22,16, 32) , AF (22, 16,32) ,AB(22, 16, 32) , 

«  S?(22,16,32),SU(22,16,32),RI(22,16,32) 
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OXM1>XL(IM1,J,K,1,0) 

00190100 

00190200 

DYP1«YL(I,JP1,K,1,0) 

00190300 

DYJ  ,K,1,0) 

00190400 

DYMl-yL(l,JMl,K,l,0) 

00190500 

00190600 

OZP1«ZL(I,J,KP1,1,0) 

00190700 

OZK  -ZL(I,J,K  ,1,0) 

00190800 

DZH1-ZL(I,J,KM1,1,0) 

00190900 

00191000 

SURFACE  LENGTH  OF  THE 

CONTROL  VOLUME 

00191100 

00191200 

DXN«XL(I,JP1,K,1,2) 

00191300 

0XS-XL(I,J  ,K,1,2) 

00191400 

DXF«XL(I,J,KP1,1,3) 

00191500 

DXB-XL(I,J,K  ,1,3) 

00191600 

00191700 

DyF»YL(I,J,KPl,l,3) 

00191800 

0YB«YL(I,J,K  ,1,3) 

00191900 

DYE»YL(IP1,J,K,1,1) 

00192000 

DYW-YLd  ,J,K,1,1) 

00192100 

00192200 

0ZE-ZL(IP1,J,K,1,1) 

00192300 

0ZN-ZL(1  ,J,K,1,1) 

00192400 

0ZN«ZL(I,JP1,K,1,2) 

00192500 

DZS-ZL(1,J  ,K,1,2) 

00192600 

00192700 

CENTRAL  LENGTH  OF  THE 

STAGGERED  CONTROL  VOLUME  FOR  U 

00192800 

00192900 

0XEE-XL(IP2,J,X,1,1) 

00193000 

DXE  •XL(1P1,J,K,1,1) 

00193100 

OXN -XLd  ,J,K,1,1) 

00193200 

DXIIN«XLdHl,J,X,l,l) 

00193300 

00193400 

0yNN-YLd,JP2,K,l,2) 

00193500 

OYN  -YLd,JPl,K,l,2) 

00193600 

OYS  -YLd,J  ,K,l,2) 

00193700 

0YSS-YLd,JMl,K,l,2) 

00193800 

00193900 

0ZFF«iZLd,J,KP2,l,3) 

00194000 

OZF  •ZLd,J,KPl,l,3) 

00194100 

OZB  ••ZLd,J,K  ,1,3) 

00194200 

OZBB«ZLd,J,KMl,l,3) 

00194300 

00194400 

-  3EFINE  THE  AREA  OF  THE 

CONTROL  VOLUME 

00194500 

00194600 

OXYF-DXF'DYF 

• 

00194700 

DXYB-DXa*OYB 

00194800 

3YZE»DYE»D2E 

00194900 

3YZW-DYW*D2W 

00195000 

OZXN-DZN*DXN 

00195100 

OZXS-DZS*DXS 

001952C0 

00195300 

VOL-DXI*DYJ*DZK 

00195400 

VOLDT-VOL/DTIME 

00195500 

00195600 

ZXOYN-DZXN/DYN 

C01957CO 

ZXOYS-DZXS/DYS 

00195800 

XYOZF-DXYF/DZF 

00195900 

XYOZB*DXYB/DZB 

00196000 

YZOXE-DYZE/DXE 

00196100 

YZOXW-DYZW/DXW 

00196200 

00196300 

00196400 

•  USE  SINGLE  AND  BI-L: 

•NEAR  INTERPOLATION  TO  EVALUATE 

V  w  *  709 w  W 

PHYSICAL  PROPERTIES 

AND  FLUX  ON  THE  SURFACES. 

00196600 

00196700 

00196800 
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GNE-SILINtRd  ,  J,K)  ,DYP1,DYJ)  *V(I 

GNW-S ILIN  (R  ( IMl ,  J?  1 ,  :< )  f  R  ( IMl ,  J,  K)  , DYP 1 ,  DY J>  *V  ( IMl ,  -*?  1 ,  K) 
GSE»SILIN(R(I  ,-'Ml,K).S(I  ,  J,K)  ,DYM1,DYJ) 'Vd  ,J  ,K) 

GSW-SILIN  <R (IMl , JMl , K) , R ( IMl ,  J,  K) ,  DYMl , DYJ) *V (IMl , J  , K) 

GE  -SILIN(RdPl,J,K),Rd  ,  J,K)  ,DXEE,DXE)  *0  (IPl,  J,K) 

G?  -SILIN(RdM:,J,K),Rd  ,J,K>,DXW  ,DXE)*0d  ,J,K) 

GW  -SILIN  (R  dM2 ,  J, K) ,  R (IMl ,  J, X) , DXWW, DXW)  *U  (IMl ,  J,  X) 

GFE-SII.IN(R(I  ,J,XP:),R(I  ,  J,K)  ,DZP1,D2K)  *W(I  ,J,XP1) 

GFW-SILIN (R (IMl , J, XPl ) , R ( IMl, J, K) , D2P1, D2K) *W ( IMl , J, XPl ) 
GBE-SILIN(R(1  ,J,KM1),R(I  ,  J,K)  ,D2M1,DZK) ‘Wd  ,J,X  ) 

GBH-SILIN (R ( IMl , J, KMl ) ,  R ( IMl ,  J,  X) ,  DZMl, DZK) *W ( IMl , J, X  ) 

CE»0.5MGE+GP)*DYZE 

CW-0.5MGP+GW)»DYZW 

CN-SILIN (GNE, GNW, OXE, GXH) *DZXN 
CS-SILIN (GSE, GSW, OXE, OXW) *OZXS 

CF-SILIN (GFE, GFW, OXE, OXW) *OXYF 
CB-SILIN (GBE, GBW, OXE, OXW) •OXYB 


30196900 

00197000 

00197100 

00197200 

00197300 

00197400 

00197500 

00197600 

00197700 

00197000 

00197900 

00190000 

00190100 

00190200 

00190300 

00190400 

00190500 

00190600 

00190700 

00190000 

00190900 

00199000 

00199100 


VISE-VIS (I 

,-’,K) 

00199200 

VISW«VIS(IM1,J,X) 

00199300 

00199400 

VISN- 

(VISd  ,J?1,K)+VIS(I  ,J,K>  + 

00199500 

( 

VIS(IMl,J?:,K)+VIS(IMl,J,K)>/4.0 

00199600 

VISS- 

(VISd  ,0M1,K)*VIS(I  ,J,K)  + 

00199700 

t 

VIS(IM1,JM:,K)+VIS(IM1,J,K))/4.0 

00199800 

00199900 

VISF- 

(VISd  ,J,XPl)fVIS(I  ,J,K)  + 

00200000 

« 

VIS(IMl,;,X?l)+VIS(IMl,J,K))/4.0 

00200100 

VISB- 

(VISd  ,J,XMl)fVIS(I  ,J,K)*t- 

00200200 

( 

VIS(:Ml,J,XMl)'t'VIS(IMl,J,K))/4.0 

00200300 

C0200400 

VISNl-ZXOYS'VrSN 

VISSl-2XOYS*VrsS 

V!SE1-Y20XE*VISE 

VISW1«YZ0XW*V!SW 

VISF1-XY02F*VTSF 

VISB1-XY0Z3*VI33 


3ZP-(A3S(CE)  *Ci:\  ‘OXE/OXI/ie. 

3ix-(A3S(ce)-c£) •3xe/:x?:/:£. 

7a'?-(A3S(C’aM  »C'a')  'DXW/GXMl/ie. 

3A-M-  ( A3S  ( cv;  >  -CW )  •  DXW/  3X  :  /  :  6 . 

CNP-(A3S(CN)+CN» ‘OYPl'DYJ/ (DYS* (DYN+DYS  ) )/9. 
CNM-(A3S(CX)-CN) •DYPl'DYJ/ (DYN* (DYN+DYNN) ) /0. 
C3P-(ABS(CS)»CS) •DYM1'DYJ/(DYS»(DYS+DYSS) )/8. 
CSM-(ABS(CS)-CS)  •DYMIOYJ/OYSMDYS+OYN  )  )/0. 

C?P-(ABS(Cr)»CF) •D2?:*DZR/(DZF*(DZF+DZ8  ) )/0. 
CrM-(A3S(CF)-CF >  *OZP: 'OIK/ OZF* (DZF+DZFF) ) /0 . 

C3P- (A3S (C3) ♦CB) -OZMl-DZE/ (0Z8* (DZB+DZ88) ) /8 . 
C3M-(A3S(C3)-C3) *02X1 'DZK/ (DZ3* (DZB+DZF  ) )/8. 

A-  (I,  J,  X)  — .  5 'CE-t-CEP^CEM*  ( 1 . -DXE/DXEE)  +CWM*DXW/DXE*v:SEl 
AW  ( I ,  J,  X)  »  .5  •CW^-CWM-CW? Ml.  -DXW/DXWW)  i-CEP'DXE/DXWt V :  3W1 


AN  (I,  J,  X)  «-  .  ;  •3YJ/0YX•C^'■rCX?•^CNM•  (1 . -DYN/DYNN)  +CSM*DYS/DYN-^VI3N: 
A3 (I, J, X) »  . -  ’DY-'/DYS'CStCSM+CSP* (1 .-DYS/DYSS) +CNP*DYN/DYS+VISS1 
Ar  d,  -*,  X)  «-  .  3  •3ZK/DZr*C?-CF?-^CFM*  (1  .tDZF/DZFF)  +CBM•DZ3/D2F•^VISt  1 
A3 ( I, J, X) «  . . •DZK/DZ3»CS*C3MfCBP* (1 .*DZB/DZS3) +CF ?*DZF/DZBtV:331 


00200500 

00200600 

00200700 

00200000 

00200900 

00201000 

00201100 

00201200 

00201300 

00201400 

00201600 

00201800 

00201900 

00202000 

00202100 

00202200 

00202300 

00202400 

00202500 

00202600 

002027CC 

00202800 

00202900 

00203000 

C020310C 

00203200 

00203300 

00203310 

00203320 

C0203330 
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0OX  A2£— CEX*DXE/DXEE 
AEER-AEE*UPD(IP2,«,K) 

802  ccxt:x-je 

803  AMM->CX?*OXH/OXWW 
AWfI(-AWW*UPD  ( IM2,  J,  X) 

804  CCXTIK’JE 

:?  (J.ir.NJ)  GOTO  805 
ANH>0. 

MINR-0. 

GOTO  806 

805  AKK»CNM*DyM/OYNN 
Mim-AKN*UPO(I,J?2,K) 

80€  CONTINUE 

IF  (J.C7.2)  GOTO  807 

ASUO. 

ASSR-O. 

GOTO  Id 

807  AS8>-CS?*0yS/0YSS 
ASSR-ASS*UP0(I,JM2,K> 

808  CONTINUE 

IF  (K.IT.NK)  GOTO  809 
AFF-O. 

AFFR-O. 

SOTO  I*  S 

809  AFF»-CFX*02r/02FF 
AFFR-A?F*'JPD(I,J,KP2> 

810  CONTINUE 

IF  (X.6T.2)  GOTO  811 
AU-0. 

ARRR-C. 

GOTO  812 

811  A8B—C3?*DZS/DZBB 
ABBR«Aaa*UP0(:,J,KM2) 

812  CCNTINUE 


C  XOOIFICATIOX  FOR  0£CK  BOUNDARIES 


900  CONTINUE 

IF  (SCO!  1X2, .£5.0)  GOTO  901 
AXN-C.: 

ANWR-C . : 

901  CCNTINUE 

IF  (NOC(I?:,J,K) .EQ.C)  GOTO  902 
AEE-C . : 

AESR>C . : 

902  CCNTINUE 

IF  (NCCC.UXl.K)  .EQ.O)  GOTO  903 
ASS-0. I 
ASSR-C . : 


903  CCNTINUE 

IF  <NCC(I, J?1,K) .£5.0)  GOTO  904 
ANN-C . : 

ANNR-C.I 

904  CONTINUE 

IF  {NCC<I, J,KM1) .£5.0)  GOTO  905 


10203340 

00203400 

00203300 

00203600 

00203700 

00203800 

00203900 

00204000 

00204100 

00204200 

00204300 

00204400 

00204500 

00204600 

00204700 

00204800 

00204900 

00205000 

00205100 

00205200 

00205300 

00205400 

00205500 

00205600 

00205700 

00205800 

00205900 

00206000 

00206100 

03206200 

002063CO 

00206400 

00206500 

00206600 

00206700 

00206800 

00206900 

00207100 

00207200 

00207300 

002C740C 

•  A 

^ W& W  4  f  W  W 

•  AAAA A 

• aaaaaaa 

^  V 

**  AAAQ  •  A  A 
«w4CwC 

••  AAAOAA  A 

00208300 

00208400 

00208500 

A AAAA AA A 
V  W«W6  0 W W 
A AAAOAAA 

WW4wC  4 ww 
00208800 
00208900 

A  A  A  A  A  A  A  A 
w  W4EV7VWW 
•AA^A*  aa 

W  W«  M  7  • W  W 

10209200 

10209300 

a  a a a a/  a  a 

11209:10 

•aaaaaaa 
w  w  A  w  7  ■  w  w 
A  A  •  A  aa  * 
w  7S  w  w 

•AA-AAAA 

w  *  w  «/  w  w 
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Aaa-o.c 

ABBR-O.O 

905  CCNTIXUE 

IF  (N0D(I,J,KP1) .EQ.O)  GOTO  906 

AFF-C.C 

AFFR-0.0 

906  CONTIKUE 

C  «*««««*ff««*««««l«**««***t#«««**«#«#««**»*iti«*#*«*«****««*«** 

c  •«*««»«#•«*«*««««**«#**#«***«#«****«««**#«**«**#««*«*«*««***** 


c  •••  su  FROM  NORMAL  STRESS 

aE-<S:Gll(I  ,J,K)-(U(IP1,J,K)-0(I  ,J,K>)*VISE/DXE)»DYZE 
RW-(SIG11(IMI,J,K)-(0(I  ,J,K)-0(IMl,J,K))«VISH/DXW)*DyZW 
RN«(SIG12(I,JPI,K)-<0(I,JP1,K)“0{I,J  ,  K) ) ‘VISN/DYN) •D2XN 
RS-(SIG12{I,J  ,K)-(U<I,J  ,K)-U<1,JM1,K))*VISS/DYS)«D2XS 
RP-<SIG13(I,J,KP1)-(0(I,J,KP1)-0(1,J,K  ) ) *VISF/DZF) ‘DXVF 

RB-<SI013(I,J,K  )-(U(I,J,K  )-0(I,J,KMl))»VISB/DZB)»DXyB 

C  •••  SU  FROM  CURVED  STRESSES  AND  ACCELERATIONS 

AVG12-0.5*(SIC12(I,JP1,K)  -t-SIGlE  (I,  J,K) ) 
AVG13-0.S*(SIC13(I,J,KPl)fSIG13(I«J,K)) 
AVG22-SIL:N<SIG22(I,J,K),SIG22(IM1,J,K),0XE,DXW) 

AVG33-SIL:N (SIG33 (I, J,K) ,  S1G33 (IMl, J,K) ,DXE,DXW) 

AU1«>U(:,J,X) 

au2-bil:n(V(i  ,jpi,k),v(i  ,j,K),Dyj,Dyj, 
t  V(IMl,JPl,K),V(IMl,J,K),Dyj,Dyj,  DXE,DXW) 

AU3»BIL:N(W(I  ,J,KP1),N(I  ,J,K),DZK,02K, 

t  W(IMI,J,XP1),W(IM1«J,K),02K,D2K,  DXE.DXW) 

ar*s:l:n  (R  (  i  ,  j  ,  k)  ,  r  (  imi  ,  j,  k)  ,  dxe,  dxw) 
aru:2-ar«au:*ao2 

ARU13«AR«AU1*AU3 

ARU22«AR«A'J2*AU2 

ARU33-AR*AU3*A'J3 

aRy-(AVG:2-AHU12)  'DIKMOXN-OXS) 
aRZ-(AVG:3-ARU13) "Oyj*  OXF-DXB) 

RaX»(AVS22-AHU72) 'OEK* (OyE-OyW) ♦ 

&  {AVC33-ANi;31)  'Dyj*  (02E-02W) 

A?<:,  J,K)*AE(  I,  J,X)+AW(I,  J,K)+AN(I,J,K)4AS(I,J,K) 

6  -AF  ( I ,  J,  X)  4AB  ( I ,  J,  K)  +AEE+Al«'t-ANN+ASS-rAFFrA3B 

SP ( K)  —  (ROD  ( I ,  J, X)  *DXW+ROD (IMl,  J, K)  ‘DXE)  /  (DXW^DXE)  ‘VOLDT 
SU ( :, J, X) ■  (ROD ( I , J, X) ‘DXW+ROD { IMl, J, K) ‘OXE) / (DXWtDXE) * VOLDT 
t  ’UODC.J^X) 

SU  ( :,  J,  x»  -SU  ( ; ,  J,  X)  -tdyj'DZX*  (P  (Imi,  j,  K)  -p  c  ,  k)  ) 

(  'AEER  <-AWWRi-ANNR4ASSR>AFFR-^ABBR 

6  -RE-RWi-RN-RS»RF-RB+RRy+RRZ-RRX 

t-BUCyS:X(ZC(K)  )»((R(I,-*,X)-REQ(I,J,X))*DXW*CCS(XC(:)  )«(R(IX1, 
«  J,  y.)  -REQ  ( ;.y. ,  ,  K) )  •DXE'COS  (XCCMl) ) )  /  (DXW+DXE>  *V01 
ICC  CONTINUE 


TAKE  CARE  0-  3.C.  THRU  AN, AS, AE, AW, AF, AB, S?  AND  SU 
RADIUS  DIRHCTICN 


:;o  zzz  x=2,NK 

DC  sCO  .^EjN* 

(1,2,  K)  =3?  ( : . K)  -as  ( :,  2,  x) 


002101CC 

S0210200 

C0210300 

CC210400 

00210500 

C0210600 

00210700 

00210800 

00210900 

00211000 

00211100 

00211200 

00211300 

00211400 

00211500 

00211600 

C0211700 

00211800 

00211900 

00212000 

00212100 

00212200 

00212300 

00212400 

00212500 

00212600 

00212700 

00212800 

00212900 

00213000 

00213100 

00213200 

00213300 

00213400 

00213500 

00213600 

00213700 

00213800 

00213900 

00214000 

00214100 

00214200 

00214300 

00214400 

00214500 

00214600 

^  *4  '  W  W 

00214900 

00215000 

C" 

*  W  W 

00215200 

00215300 

00215400 

C02155CC 

00215600 

00215700 

00215800 

00215900 

W  WA  A vOww 
A«<51  «« 

00216200 

00216300 

00216400 

w  wA  •  O  w 
00216600 
00216700 
00216800 
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S?(I,2,K)-SP(I,2,K)-AS(:,2,K) 

SU(I,2,K)-SU(I,2,K)-2.0*U(I,:,K)*AS(I,2,K) 

SP(I,SJ,K)-S?(:,NJ,K)-AN(I,NJ,K) 

AN(I,NJ,K)-0. 

AS(I,2,X)-0. 

500  CONTINUE 

C  CYLIC  CONDITION 

00  502  X-2,NK 
DO  502  J«2,NJ 

SU(2  ,J,X)-SU(2  ,J,K)4AW(2  ,J,K)*0(1  ,J,K) 

SO  <NI , J, X) -SU (NI, J, K) 4AE (NI ,  J,K) *0 (NIPl, J, X> 
AW<2  ,w*,X)-0.0 
AE(NI,J,X)>0.0 
502  CONTINUE 

C  FRONT  AND  BACK  WALLS 

DO  €00  1*2, N7. 

DO  600  J-2,NJ 

C  **•  SLIP  WALLS 

SP(I,J,2)-SP(I,J,2)>AB(I,J,2) 

SP(I,J,NK)-SP(I,J,NK)<*-AF(I,J.NK) 

AF(I,J,NK)-0. 

AB(I, J,2)-0. 

600  CONTINUE 


IF  (NCHIP.EQ.O)  GOTO  105 

C  •#««•#*«««#*••#«•««••*••••«#•*#•• 

C  •••  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N-l,NCHIP 
IB«ICH?3(N) 

IE-IB'fNCHPI(N)>l 

IBMI-Ia-i 

IEPl-IE'^1 

J3-JCn?3(N) 

JE«JB''XCKPJ(N)--; 

J3M1-JS-1 

JEP 

X3-KCH?3(N) 

XE»K3-rNCH?K(N)-: 

X'»11-K5-l 

KEPl-XE-1 

DO  1C2  >JB,JE-i 
DO  102  X-KB,KE-; 

AE(IBX:,J,X)-C.C 

AW{IE?:,J,K)-0.C 

102  CONTINUE 

DO  1C3  :»:3,:e 
DO  1C3  X»KB,KE-: 

SP ( I , J3X1 , X » *S? ( ! , J3x: , X) -AN ( I , J3M1 , X ) 
AN(I, J3M1,K)»C.C 


3?  { I,  JE,  X)  -S?  ( : ,  J£,  K)  -AS  ( I ,  UE,  K) 
ASd,  JE,X)*C.C 
:C3  CONTINUE 


00216900 
00217000 
00217100 
00217200 
00217300 
00217400 
00217500 
00217600 
00217700 
00217800 
00217900 
00218000 
00218100 
00218200 
00218300 
00218400 
00218500 
00218600 
00218700 
00218800 
00218900 
00219000 
00219100 
00219200 
00219300 
00219400 
00219500 
00219600 
00219700 
00219800 
00219900 
00220000 
00220100 
00220200 
00220300 
00220400 
00220500 
00220600 
C022070C 
00220600 
00220900 
002210CC 
00221100 
00221200 
00221300 
002214CC 
00221500 
00221600 
00221700 
00221800 
002219CC 
00222000 
00222100 
00222200 
00222300 
00222400 
00222500 
00222600 
00222700 
00222800 
00222900 
C02230C0 
00223100 
00223200 
00223300 
002234CC 
00'' '’3500 
00223600 


100 


('i  <>  f) 


30  1C6  i=:b,:£ 

00  106 

S? { I,  J,  KBMl ) =S? ( I , J, K3M1 ) -AF ( I, J, KBMl ) 
A? (:,J,KaMl)*0.0 

S?(I, J,KE)-S?(I,J,KE)-AB(I, J,XE) 

A3(I,  J,KE)=--0,0 
L06  CONTINUE 


C  •••  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 

DO  104  I-IB,IE 
DO  104  J-JB,JE-1 
DO  104  K-KB,KE-1 
SP(I,J,K)— 1.0E20 
AW(I,J,K)-0. 

AE(I,J,K)»0. 

AS(I,J,K)-0. 

AN(I,J,K)-0. 

SU(I,J,K)-0. 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 

C  ««*4*4*««««*««l**«»«»*««««««t«»«*«*****«**«***«**«*«*tt«* 


ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 


0022370C 

00223800 

00223900 

00224000 

00224100 

00224200 

00224300 

00224400 

00224500 

00224600 

00224700 

00224800 

00224900 

00225000 

00225100 

00225200 

00225300 

00225400 

00225500 

00225600 

00225700 

00225800 

00225900 

00226000 

00226100 

00226200 

00226300 

00226400 

00226500 

00226600 

00226700 

00226800 


DO  301  K-2,NK 

00226900 

DO  301  J-2,NJ 

00227000 

DO  301  1-2, NI 

00227100 

DYJ-YL(I,J,K,1,0) 

00227200 

D2K-ZL(:,J,K,1,0) 

00227300 

DY2-DYJ*DZK 

00227400 

A?(I, J,X)-AP(I, J,K)-S?(!,  J,K) 

00227500 

O'Jd,  J,K)-DYZ/AP(I,J,K) 

00227600 

CONTINUE 

00227700 

00227800 

00227900 

00228000 

SOLVE  -OR  U 

00228100 

00228200 

CALL  TRID  (2,2,2,N:,XJ,NK,U) 

00228300 

00228400 

00  74  >2.x:?-. 

002285CC 

OC  74  J-2,NJP1 

00228600 

•-•(I.J.D-UC,  J,2) 

00228700 

•j(:,j,nkp:)=j(i,j,xx) 

002288C0 

CONTINUE 

00228900 

00229000 

00229100 

00  79  I-:,NIP1 

00229200 

00  79  K-1,NKP1 

00229300 

U(:,1,K)-J<I,2,K) 

00229400 

CONTINUE 

00229600 

00229700 

:r  (NCHiP.EQ.C)  GOTO  ::2 

00229900 

•«««*« «#?<««•«»«*«»««••*»««««*««»«*«»« «*##*«****»«■•««•»« 

00229900 

#«#«**«#» 

-E3ET  THE  V"  LOCITY  INSIDE  OF  DECK 

ArtAAA  -  AA 

aaaaaaaa 

00  lie  N=:,NCKI? 

00230300 

:3=ICK?3(N) 

00230400 
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IE-lB+NCHPI(N)-i 

JB»JCK?3(N) 

J2-JB+KCHPJ(N)-1 

KB-KCHP3(N) 

KE-KBTNCKPK(N)~i 
DO  108  I»:3,IE 
DO  108  J-J3,JE>1 
DO  108  X-K3,KE>1 
UII,J,X)-0.0 
108  CONTINUE 
-.10  CONTINUE 
112  CONTINUE 

C  i#«**«*««*««#t*«*l#i*«#i«t*lt*t*i««*«tti*«*«««** 

C  ••*«*«l*t««f«««««*t*l«*tt*#«««*«t«it»««t**«*i##«««*t**i*i««««« 

RETURN 

END 


SUBROUTINE  CALV 


00230500 

00230600 

00230700 

00230800 

00230900 

00231000 

00231100 

00231200 

00231300 

00231400 

00231500 

00231600 

00231700 

00231800 

00231900 

00232000 

00232100 

00232200 

00232300 

00232400 

00232500 

00232600 

00232700 

00232800 

00232900 

00233000 

30233100 

00233200 

00233300 

30233400 

00233500 


COMMON/R4/XC(93) . TC (93) ,ZC(93) ,XS(93) ,yS(93) ,ZS (93) ,  00233000 

t  DXXC(93),DyYC(93),0ZZC(93),DXXS(93),DyYS(93),0ZZS(93)  30233100 

COMMON/BLl/DX,Oy,DZ,VOi,DTIME,VOLDT,THOT,TCOOI.,PI,Q,QR  00233200 

C0MM0N/BL7/NI ,  N IP 1 . NIMl , N J, NJPl , N JMl , NK, NKP 1 ,  NKMl  00233300 

t  ,NIP2,NJ?2,NKP2,NA,NAPUNAM1,NB,NBP1,NBH1,KRUN,NCHIP,NJRA,NWRP  30233400 

C0Mt40N/BL12/  NWRITE,NTAPE,NTMAX0,NTREAL.TIM£, SORSUM, ITER  00233500 

COMMON/BLIS/  CONSTl , CONST2, CONST3, CONST4, CONST6, NT, UO , K, UCRT, BUOY, 00233600 
«  CPO,  PRT,  CONDO , VISO, RHOO , HR, TR, TA, DTEMP, TWRITE, TTAPE , TMAX, GC, RAIR00233700 
COMMON/aL20/SICll(22,16,32),SIG12(22,16,32),SIG22(22,16,32)  00233800 

i  ,  SIC13 (22, 16, 32), SIG23  (22, 16, 32), 81633(22,  16,32)  00233900 

COMHON/BL22/ICHPB(10),NCHPI(10),JCHPB(10),NCKPJ(10),KCHPB(10),  00234000 

6  NCHPK(10),TCHP(10),CPS(10),CONS(10),WFAN(10)  00234100 

CO:4MON/ai31/  TOD(22,16,32),ROD(22,16,32),POD(22,16,32)  00234200 

t  ,COD(22,16,32),UOD(22,16,32),VOD(22,16,32),WOD(22,:6,32)  00234300 

COMMON/aL32/  T (22, 16, 32) , R(22, 16,32) ,P (22, 16, 32)  00234400 

t  ,C(22,16,32),U(22,16,32),V(22,16,32),W(22,16,32)  00234500 

COMMON/aU33/  TPD (22, 16, 32) ,RPD(22, 16,32) , PPD (22, 16, 32)  00234600 

6  ,C?D(22,16,32),UPD(22,16,32),VPD(22,16,32),WPD(22,16,32)  00234700 

COMMON/3L34/  HEIGHT (22, 16, 32) ,REQ(22, 16, 32) ,  00234800 

t  3MP(22,16,32),SMPP(22,16,32),PP(22,16,32),  00234900 

6  DU(22,16,32),0V(22,16,32),DW(22,16,32)  00235000 

CCy_yON/31,36/A?  (22,  16,  32) ,  AE  (22, 16,32)',AW(22, 16,  32) ,  AN  (22,  16,32) ,  00235100 

t  AS(22,16,32),AF(22.16,32),A3(22,16,32),  00235200 

i  S?(22,  16,32) ,SU(22, 16,32), RI(22, 16, 32)  00235300 

COMMON/3L37/  VIS (22, 16, 32) ,COND (22, 16, 32) ,NOD (22, 16, 32) , RWALL (579) 00235400 
t  ,C?M(22,16,32),HSZ(3,2),NH5Z(22,16,32),RESORM(93)  00235500 

00235600 

00235700 

•  CALCULATE  COEFFICIENTS  00235800 

00235900 

DO  100  K-2,N:<  00236000 

•  KP2-K-2  00236100 

K?l-K*l  00236200 

KMl-K-l  00236300 

KM2«K-2  00236400 

DO  100  J«3,NJ  00236500 

J?2*J*2  00236600 

JPl-Jrl  00236700 

jy.l«J-l  00236800 

Uy2-J-2  00236900 

DO  100  1=2, N:  00237000 

:?2=>2  00237100 

Irl*:-!  00237200 


1=2, n: 
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:?  (:.£Q.2)  IM2-NIM1 
I?  C.iQ.NI)  IP2-3 


C  CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1-XL(IP1,J,K,2,0) 

DXI  -XL(I  ,J,K,2,0) 

dxmi-xl(:mi,j,x,2,o) 

DYP1-YL(:,JP1,K,2,0) 

DYJ  -YL(I,J  ,K,2,0) 

DYM1-Y1(I,JM1,K,2,0) 

DZP1«ZL(I,J,KP1,2,0) 

DZK  >ZL(I,J,K  ,2,0) 

DZMI-ZL(I,J,KH1,2,0) 

C  ***  SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN«XL(I,JP1,K,2,2) 

DXS«XL(I,J  ,K,2,2) 

DXF«XL(:,J,KP1,2,3) 

DXB-XL(:,J,K  ,2,3) 

DYF-Y1(:,J,KP1,2,3) 

0YB-YL(:,J,K  ,2,3) 

0YE»YL(IP1,  J,K,2,1) 

OYM-YLC  ,J,K,2,1) 

oze»zl(:pi,j,x,2,i) 

OZW-ZLC  ,J,K,2,1) 

0ZN«iZl(:,JPl,K,2,2) 

0ZS«Z1(:,J  ,K,2,2) 

C  ...  CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME 

DXEE"X1(:P2,J,K,2,1) 

DXE  -XLdPl, J,K,2,1) 

DXW  -XLC  ,J,K,2,:) 

oxww-xl(:mi,j,k,2,:) 

DYNN-YL(:,J?2,X,2,2) 

DYN  •Y1{:,JP:,X,2,2) 

3YS  -YLC,-*  ,X,2,2) 

CYSS-YIC,  JM:,K,2,2) 

3ZFr-ZL(:,J,K?2,2,3) 

DZF  «ZL(:,J,K?i,2,3) 

DZB  -ZL(:,J,K  ,2,3) 

DZ3B-21(:,J,KM1,2,3) 


C  •••  CEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 


0XYF-3XF»0YF 

3XYB-SX3*DYa 

3Yze-:yeoze 

3YZW-DYWDZW 

3ZXN«:z:;*oxN 

DZXSOZSOXS 


VOL»3X:*CYJ*DZK 

VOLCT=7CL/OT:y.E 


ZXOYN-CZXN/DYN 

ZXOYS=3ZXS/DYS 


C02373C0 

C0237<C0 

CC2375CC 

00237600 

00237700 

00237800 

00237900 

00238000 

00238100 

00238200 

00238300 

00238400 

00238500 

00238600 

00238700 

00238800 

00238900 

00239000 

00239100 

00239200 

00239300 

00239400 

00239500 

00239600 

00239700 

00239800 

00239900 

00240000 

00240100 

C024020U 

00240300 

00240400 

00240500 

00240600 

00240700 

00240800 

00240900 

00241CCC 

oo24i::c 

00241200 

00241300 

00241400 

00241500 

00241600 

00241800 

00241900 

w4*l^www 
w w 

00242200 

00242300 

00242400 

00242500 

00242600 

00242700 

00242800 

00242900 

00243000 

w J  *ww 

00243200 

00243300 

00243400 

00243500 

CC24360C 

00243700 

00243800 

00243900 

\i/ww 
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XY0ZF*=3XYF/DZr 

XYOZB-DXYB/DZB 

YZOXE-DYZE/DXE 

YZOXW-DYZW/DXW 


USE  SINGLE  AND  BI-LINEAR  INTERPOLATION  TO  EVALUATE 
&  PHYSICAL  PROPERTIES  AND  FLUX  ON  THE  SURFACES. 


gen-s:l:n(R(ipi,j  ,k),r(I,j  ,k),dxpi,dxi)»u(i?:,j  ,k> 
ges-s:l:nmr(ipi,jmi,k),r(i,jmi,k),dxpi,dxi)»u(i?:,jmi,k) 
gwn-s:l:n(R(imi,j  ,k),r(I,j  ,k),dxmi,dxi)*u{i  ,j  ,k) 
gws-s:l:n(R(imi,jmi,k),r(i,jmi,k),dxmi,dxi)*u(i  ,j>ii,k) 

GN  •s:lin(R(i,jpi,k),r(i,j  ,k),dynn,dyn)*v(i,j?:,k) 

6P  -s:l:n(R(i,jmi,k),r(i,j  ,k),dys  ,dyn»»v(i,j  ,:<> 

GS  -SILIN(R(I,JM2,K),R(I, JM1,K),DYSS,DYS) *V(I,JM1,X) 
GFN-SILIN(R(I,J  ,KP1J,R(I,J  ,K)  ,DZP1,DZK) ‘Wd^U  ,KP1) 

gfs»s:lin(R(i,jmi,kpi),r(i,jmi,k),dzpi,dzk)  •w(i,um:,kpi) 
gbn-s:l:n(R(i,j  ,kmi),r(i,j  ,k),dzmi,dzk>«w(i,u  ,k  ) 
GBS-SILIN(R(I,JM1,KM1),R<I,  JMl,K),D2Ml,DZK)*W(I,jy.l,K  ) 

CN-0.5'(GN+GP)«DZXN 
CS-0.5*  (GP---GS)  ‘OZXS 

CE»SIL;N (GEN, GES, DYN,  DYS) *DYZE 

cw«sil;x (gwn,  gws, dyn, dys) *dyzw 

cf-s:i:n'  (gfn,  gfs,  dyn,  dys)  ‘dxyf 
cb-sii:n (gbn, gbs, dyn, dys) ‘dxyb 

VISN»V:S(I,J  ,K) 


viss-v:s( 

I,UM1,K) 

VISE- 

(VIS(I?1,J  ,K)+VIS(I,J  ,X)+ 
VlSdPl,  JMl,K)fVIS(I,JMl,K)>/4.C 

VISW- 

1 

(VIS(IM1,J  ,K)+VISd,J  ,K>  + 
VISdMl,  JMl,K)+VISd,JMl,K)>/4.0 

VISF- 

1 

(VIS(T,J  ,KPl)+VISd,U  ,:<)  + 
Vise,  JMl,KPl)+VISd,JMl,K))/4.C 

VISB- 

(VISC.U  ,XMl)*VISd,J  ,X)  + 

t  VIS(:,UMl,KMl)i-VIS(I,JMl,K))/4.0 


v:sN:»zxoYN*vir,N 

v:ss:»zxoYs*v;ss 

vise:»yzoxe*v!sf. 

visw>Yzoxw»v:sw 

V:SF>XYOZF*V:3F 

visb:-xyozb»vis3 


CEP-(A33(CE)  *Cr.)  -DXPI^DXI/OXE'CDXEtDXW  )  )/8. 
CEM*  (A33  (CE)  -CF.)  •DXPl'DXI/  (DXE*  (DXE+DXEE) )  /8. 
CVJP=(A33(CW) ^CW) *UXM1*DXI/(DXW*(DXW+DXWW) )/S. 
CWM»(A3S(CK)-CW)  ‘DXMl'DXI/ (DXW*  (DXWOXE  ))/8. 


CXP=(A3S(CN)  *-CN)  'OYN/DYJ/ie. 
CXM= ( A5S ( CN ) -C\ ) • D YX/ DY? 1/16. 
CS?=(A33(C3)  -CS)  •.OYS/DYKl/ie, 
C3M-(A53(C3)-C3) * UYE/DYJ/ 16 . 


CFP=(A5S{Cr)  *C:  )  'OZPl^DZK/iDZF*  (DZFOZ3  )  )/8. 


UC2441CC 

00244200 

30244300 

30244400 

00244500 

00244600 

00244700 

00244800 

00244900 

C024500C 

00245100 

00245200 

00245300 

00245400 

00245500 

00245600 

00245700 

00245800 

00245900 

00246000 

00246100 

00246200 

00246300 

00246400 

00246500 

30246600 

00246700 

00246800 

00246900 

00247000 

00247100 

00247200 

00247300 

00247400 

00247500 

00247600 

00247700 

00247800 

00247900 

00248000 

00248100 

00248200 

00248300 

00248400 

00248500 

00246600 

30248800 

00248900 

00249000 

0C2491C0 

00249200 

00249300 

00249400 

002495CC 

00249600 

00249700 

00249800 

00249900 

00250000 

0025C20C 

0025C3CC 

00250600 

00250800 
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s 


CFM» (A3S (CF) -C?> ‘DZ?! *DZK/ (DZF* (DZF+DZFF) )/B. 
CBP-(ABS (CB)  -rCB) •DZMl'SZK/ (DZB* (DZB+DZBB) ) /8. 
CBM-(ABS<C3)-C3)*DZM1»3ZK/(DZB*{D2B+DZF  ) )/8. 


AE  (I,  J,  X) »- .5*DXI/DXE»CE+CEP-t-CEM*  (1  .+DXE/DXEE) +CWM*DXW/DXE+VISE1 
AW(I,J,X)-  .5-DXI/DXWCW+CWM+CWP*(l.+DXW/DXWW)+CE?»0XE/DXW+VISWl 
C 

AN ( I, J, X)  — . 5 'CN+CNP+CNM* (1 .  i-DYN/DYNN) +CSM«DYS/DYN+VISN1 
AS ( I, J, X) *  ,5 •CS+CSM+CSP* (1 .-rDYS/DYSS) +CNP*DYN/DYS+VISS1 

AF ( I, J, X) . 5 •DZK/DZ? ‘CF+CFP+CFM* (1 . +D2F/DZFF) +CBM*DZB/DZF+VISF1 
AB ( I, J, X) -  .5 "DZK/DZB'CB+CBM+CBP* (1 . +DZB/DZBB) +CFP*DZF/DZB+VISB1 


801  AEE— CEM*DXE/DXEE 
AEER«AES*VPD(IP2,J,K) 

802  CONTINUE 

803  AWW-*CWP*DXW/OXWW 
AWWR-AWW*VPD ( IM2,  J,  K) 

804  CONTINUE 

IF  (J.LT.NJ)  GOTO  805 
ANN«0. 

ANNR-C . 

GOTO  806 

805  ANN— CNM*DYN/DYNN 
ANNR-ANN* VPD ( I , JP2 ,  K) 

806  CONTINUE 

IF  (J,GT.3)  GOTO  807 
ASS-0. 

ASSR-0 . 

GOTO  808 

807  ASS— CS?*DYS/DYSS 
ASSR-ASS*VPO<I, JM2,X) 

808  CONTINUE 

aF  (K.LT.NK)  goto  8C9 
AFF-0 . 

AFFR-C . 

GOTO  81 : 

809  AFF— CFX*0ZF/3ZFF 
AFFR-AFF'VPOC,  J,X?2) 

910  CONTINUE 


.r  (X.G..2)  GOTO  6.. 
AB3-C . 

ABBR-0 . 

GOTO  812 

811  ABB— C3?*DZ3/DZBB 
ABBR-A35’VP0 ( 1, J, XM2) 

812  CONTINUE 


C  *#«•«»»««««*«* ««»#»* 

c  at «t ft »«««##*««»«#•»«##***« 

C  MODIFICATION  FOR  DECX  BOUNDARIES 

900  CONTINUE 

IF  (NOD(iy.l,J,X)  .EQ.C)  GOTO  901 

AWW-0 . C 

AWWR-C.I 

901  CONTINUE 

IF  (NOOd?-.,  J',K)  .EQ.C)  GOTO  902 


00250900 

00251000 

00251100 

00251200 

00251300 

00251400 

00251500 

00251600 

00251700 

00251800 

00251810 

00251820 

00251830 

00251840 

00251900 

00252000 

00252100 

00252200 

00252300 

00252400 

00252500 

00252600 

00252700 

00252800 

00252900 

00253000 

00253100 

00253200 

00253300 

00253400 

00253500 

00253600 

00253700 

00253800 

00253900 

00254000 

00254100 

00254200 

00254300 

00254400 

00254500 

00254600 

00254700 

00254800 

00254900 

00255000 

00255100 

w  w 

00255300 

00255400 

00255500 

00255600 

00255700 

00255800 

00255900 

00256000 

00256100 

00256200 

00256300 

00256400 

00256500 

00256600 

00256700 

C025680C 

00256900 

/  WWW 

ww^W  /  t.wW 

00257200 
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As«£R*C  •  C 
902  CONTIN-E 

:F  {NC0(I,JM2,K) .EQ.O)  goto  903 

ASS-0. C 

ASSR-C.: 


903  CCNTISUZ 

:?  {NOO(I,J?1,K) .EQ.O)  GOTO  904 
ANN-0.: 

ANNR-O.O 


904  CONTINUE 

:F  (N00(I,J,KK1) .EQ.O)  GOTO  905 

ABB-0. C 

ABBR-0.2 

905  CONTINUE 

IF  (N0D<I,J,KP1) .EQ.O)  GOTO  90fi 

AFF-0.0 

AFFR-O.C 

906  CONTINUE 


SU  FROM  NORMAL  STRESS 

RN-(SIG22(I,J  ,K)-(V(I,JP1,K)-V(I,J  , K) ) ‘VISN/DYN) ‘DEKN 

RS-(S:C22(:,JM1,K)-(V(:,J  ,K)-V{I,JMl,K))*VISS/DyS)*DZXS 
RE-(S:S:2(IP1,J,K)-(V(IPI,J,X)-V(I,J  ,K))»VISE/DXE)‘DY2E 
RW-(SIS:2(I  ,J,r)-(V(I  ,J,K)-V(IMl,J,K))«VISW/DXW)«DyZW 
RF-(SI023(l,J,KPl)-(V(I,J,KPl)-V(I,J,K  ) ) •VISF/DZF) ‘OXYP 
RB-(S:G23(I,J,K  )-(V(I,J,K  )-V(I,J,KMl))*VISB/DZB)»DXYB 

SU  FROM  CURVED  STRESSES  AND  ACCELERATIONS 

AVG12-C.5MSIG12(IPl,J,K)+SIG12(I,J,K)) 
AVG23-:.5-<s:G23(I,  J,KP1)tSIG23(I,J,K)) 

AVGU-SILINMSICr.  (I,J,K),S:G11(I,JM1,X),DYN,DYS) 
AVG33-S:L:N(SIG33(I,J,K),S:G33(I,JM1,K),DYN,DYS) 

AU2-V(:,J,X) 

AUi-3:i:x(U(:?),j  ,x),u(I,j  ,k),dx:,:xi, 

&  u(ip:,jx:,x),u(:,j:41,k),dx:’,uxi,  dyn,dys) 

aU3-3;i:x(W(I  ,.;,k?:),x(i  ,j,k),dz:<,:zx, 

i  w(i,-xi,k?:),w(i,jmi,X),dzk,uzk,  dyn,dys) 

AR-SIL:X (R (I ,  J,  K) , R ( I , JMl , K) , DYN, DYS) 

AR012-AR«AU1*AU2 

ARU23-AR*AU2*AU3 

ARUll-AR'AUl'AUl 

ARU33»AR*AU3*AU3 


RRX-(AVG:2-ARU)?) •DZK* (DYE-DYW) 
SRZ-(AVG23-ARU?3) ‘OXI* (DYF-DYB) 
RRY- (AVGll-ARUl 1 ) ‘DZK* (DXN-DXS)  ♦ 
(  (AVG33-ARU33) ‘DX:* (DZN-DZS) 


A?  ( I ,  j,  K)  -AE  ( : , ,  K)  f  AW  ( : ,  x)  »an  ( : ,  j,  x)  -as  ( i ,  j,  x) 
i  -AF  K)  +A3  ( I,  J,  X)  *AEE-AWW-ANN+ASStAFF-A33 

3? ( I,  J,  X)  —  (SOD ( : , J, X) *DYS*SOD (I,  JMl, X) *DYN) / (DYS-DYN) ■VCIDT 
3U(I,:,X>-  (ROD(:,J,X)»DYS-SOD(I,JMl,X)-DYN)/(DYSrDY\) 'VOLDT 


:02573C0 

:C25740C 

:C2575C0 

:C257600 

00257700 

00257800 

00257900 

00258000 

00258100 

00258200 

00258300 

00258<'00 

00258500 

00258600 

002S87CO 

00258800 

00258900 

03259000 

00259100 

00259200 

00259300 

00259400 

03259500 

03259600 

002597CO 

00259800 

00259900 

03260000 

03260100 

03260200 

00260300 

00260400 

0026C5CC 

00260600 

00260700 

03260800 

03260900 

•  «« 

^ * w  U 

Jww 

.  O*  *1  w 

0026:600 

00261700 

4  v£D*Oww 

•  **  0  £• 

.  O*  9w  «« 

<•  ^ 

-  «  04  w  w  V 

w  w404« w  w 
00262200 
00262300 
00262400 

00262600 

00262700 

00262800 

00262900 

V  w4  w  w  w 

00263100 
00263200 
00263300 
00263400 
00263500 
0:263600 
.<.263  ^  V  w 
'.0263800 
00263900 
00264000 
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f  >  c> 


6 


VOD(I,J,K) 


■* 


SU(I,J,K)-SU(I,J,K>+D2K«DXI*(P<I,JM1,K)-P(I,J,K)) 

&  -rAEER-t-AWWR-t-ANNR-t-ASSR'fAFFR-fABBR 

fi  +RE-RW+RN-RS+RF-RB'»RRX+RRZ-RRY 

i  -3U0Y*((R(I,J,K)-REQ(I,J,K))*0YS+(R(I,JM1,K) 

&  -REQ ( I , JMl , K) ) ‘DYN) / (DYS+DYM) *VOL*SIN (ZC (K) )  "SIN (XC  ( I ) ) 
100  CONTINUE 


C  TAKE  CARE  OF  B.C.  THRU  AN,AS,AE,AW,AF,AB,S?  AND  SU 

C 

C  RADIUS  DIRECTION 

DO  500  K-2,NK 

DO  500  >2,NI 

CC  SP(I,3,K)-SP(I,3,K)+AS(I,3,K) 

SD(I,3,K)-SU(I,3,K)+AS(I,3,K)*V(I,2,K) 

AS(I,3,K)-0. 

AN(I,NJ,K)-0. 

500  CONTINUE 

C  *•*  CYLIC  CONDITIONS 

DO  502  K-2,NK 
DO  502  >3,NJ 

SU(2  ,J,K»«SU(2  ,J,K)+AW(2  ,J,K) 

SU(NI,J,K‘-SU(NI, J,K)+AE(NI,J,X)*V(N1P1,J,K) 

AW(2  ,J,K)«0.0 
AE(NI,J,X)-0.0 
502  CONTINUE 

C  FRONT  AND  BACK  WALL 

DO  600  I«2,NI 
DO  600  J-3,NJ 

C  •••  SLIP  WALLS 

S?(I,  J,2)-SP(I,  J,2)  ♦ABd,  J,2) 

SP  ( I ,  J,  NK)  «SP  ( I ,  J,  NK)  +AF  ( I ,  J,  NK) 

AF<I, J,NX)-C. 

AB(I,.*,2)-C. 


MODIFICATION  FOR  DECK  BOUNDARIES 

DO  ICl  N=-1,NCHIP 
IB-ICH?3(N) 
lE-IBfNCHPI (N)-: 

IBMl-IB-l 

IEPl-IE-1 

j3-JCK?3(N> 

JE“J3tNCH?J (N)-i 
J3M1-J3-: 

K3-KCH?3(N) 

KE*K3'»-NCK?K  (N)-'. 

K3M1*K3-1 

KE?1»K£-1 

DO  102  J«J3,JE 
DO  102  K»K3,KE-: 

S? ( :3Mi , J, K ) -S? ( I 3X1 , J, K) -AE ( IBMl , J, K> 


00264  ICC 
00264200 
00264300 
00264400 
00264500 
00264 600 
00264700 
00264800 
00264900 
C02650C0 
00265100 
00265200 
00265300 
00265400 
00265500 
00265600 
00265700 
00265800 
00265900 
C0266000 
00266100 
00266200 
00266300 
00266400 
00266500 
00266600 
00266700 
00266800 
00266900 
00267000 
00267100 
00267200 
00267300 
00267400 
C02675C0 
00267600 
002677CO 
00267800 
00267900 
00268000 
00268100 
00268200 
00268300 
00268400 
00268500 

V  OO  VW  W 

w  wO  /  w 

AAAfQAMA 

W  DOO  W  W 

00268900 

00269000 

00269100 

00269200 

00269300 

00269400 

00269500 

00269600 

00269700 

00269800 

00269900 

WW&  'VWWW 

00270100 

w  f  w  w 

^  A<5  -lA  A 
V4C  /  W  J  W  V 
aAA^A/AA 
w  \j^  /  w  n  w  w 
AAA-IAJAA 

I  ^  ^  ^ 

00270600 

OOZDCJOC 

aaataaaa 
wWZ  'wOww 
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AE(:sy.:,J,K)*o,c 

SP(1E,J,X)-SP(I£,J,K)-AW(IE,J,K) 

AW{I£,J,X)-O.C 

102  COSTIX'JE 

DO  1C3  :-IB,IE-l 
DO  103  X»KB,KE-: 

AN(I,J3M1,K)«0.C 

AS<I,JE?1,K)»0.C 

103  CONTINUE 

DO  106  >:B,IE”1 
DO  106  j**«JBrJE 

SP(I,J,XBM1)-SP(I,J,KBM1)-AF(I,J,KBM1) 

AF(l,J,K3Hl)-0.C 

SP(I,J,X£)-SP(I,J,KE)*AB<I,J,KE) 
AB(I.J,XE)«0.C 
106  CONTINUE 


C  ***  IWDIFICATION  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 

DO  10<  I-IB,IE-; 

DO  10<  J-JB,JC 
DO  104  X-XB,KC-1 
SP(I,.%X)— I.OE20 
AW(I,.%X)»0. 

AE(l,J.X)-0. 

AS{I,;,X)-0. 

AN(:,v%X)«0. 

so(:,j,x)-o. 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 


C  tf »##«#■«■••«»# tlfttitt******************** 

C  ##♦########♦######«♦##»»•* 

C  ASSEMBLE  CCr.F? ICIZNTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  3::  X-2,NK 

^0  3ww  w*3fNw 

DO  300  :=2,n: 

3XI-X1(:,J,X,?,:,) 

DZK-ZIC,  J.K,?,0) 

OZX-DZX»OXI 

A?  ( I,  J,  X)  -AP  ( ; ,  J,  X)  -S?  ( I ,  J,  X) 

DV(  I,  X)  -DZX/A?  ( I,  J,  X) 

300  CONTINUE 


C  SOLVE  FOR  V 


CALL  TROD  (2, 3,2,NI,NJ,NK,V) 


DO  "4  :=2,N:i>' 

DC  74  J=2,NJr-‘. 

v(;,j,NX?i)=v(:,j,XK) 

4  CONTINUE 


00270900 

00271000 

00271100 

00271200 

00271300 

00271400 

00271500 

00271600 

00271700 

00271800 

00271900 

00272000 

00272100 

00272200 

00272300 

00272400 

00272500 

00272600 

00272700 

00272800 

00272900 

00273C0C 

00273100 

00273200 

00273300 

00273400 

00273500 

00273600 

00273700 

00273800 

00273900 

00274000 

00274100 

00274200 

00274300 

00274400 

00274500 

002746C0 

00274700 

00274800 

00274900 

00275000 

00275100 

00275200 

00275300 

00275400 

00275500 

00275600 

00275700 

002758CO 

00275900 

00276000 

00276100 

00276200 

00276300 

00276400 

00276500 

00276600 

00276700 

00276800 

00276900 

00277000 

W  /  /  .  V  W 

00277200 
00277300 
00277400 
00277500 
00277  600 
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(ifi  o  o  o  n  o 


30  79  :=:,Nipi 
00  79  K»1,NKP1 
V(I,2,K)»V(I,3,K) 
79  CONTINUE 


IF  (NCHIP.EQ.O)  GOTO  112 

«*«*«*«««*««***«««««***t»#««i«*«««i««i«««««#««*«««««««#*««« 

**««««§«#««#«««««»«#»«*#*#«•««*«««««•#*••#««**« 

RESET  THE  VELOCITY  INSIDE  OF  THE  DECKS 


DO  110  N-1,NCHIP 
IB«ICK9B(N) 
lE-IB-^NCHPKN)'! 
JB«JCHPB(N) 
JE-JBi-NCKPJ(N)-l 
KB-KCHPB(N) 
KE-KB-t-NCHPKCN)-! 
DO  108  I-IB,IE>1 
DO  108  J«JB,JE 
00  108  K-KB,KE-1 
V{I,J,K)-0.0 
108  CONTINUE 
110  CONTINUE 
112  CONTINUE 

RETURN 

END 


SUBROUTINE  CALW 


rm 


002777C0 

00277800 

00277900 

00278000 

00278100 

00278200 

00278300 

00278400 

00278500 

00278600 

00278700 

00278700 

00278800 

00278900 

00279000 

00279100 

00279200 

00279300 

00279400 

00279500 

00279600 

00279700 

00279800 

00279900 

00280000 

00280100 

00280200 

00280300 

00280400 

30280500 

30280600 

00280700 

00280800 

30280900 

00281000 

30281100 

00281200 

30281300 


COMMON/R4/XC(93),YC(93),ZC(93),XS(93»,YS(93»,ZS(93), 

«  3XXC (93) . OYYC (93)  ,DZZC(93) ,3XXS (93) ,DYYS (93) ,  DZZS (93) 

C0MM0N/3L 1 / 3X , D Y , DZ , VOL ,  DTIME ,  VOLDT, THOT, TCOOL, P 1 , 0 , OR 
C0MM0N/3L7/NI,n:P1,N:M1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
i  , N IP2 , N JP2 , NKP2 , NA, NAPl , NAMl , NB, NBP 1 , NBMl , KRUN, NCHIP ,  N JRA,  NWRP 
COMMON/ 3L 12 /  NWR ITE , NTAPE , NTMAXO, NTREAL, TIME, SORSUM, ITER 
C0MM0N/3L:6/  const; , C0NST2, CONST3, CONST4, CONST6, NT, UO, H, UGRT, BUOY, 33282000 
(  C?0,?RT, CONDO,  V:S0,RHO0,  HR,  TR,TA,OTEMP,TWRITE,TTA?E,TMAX,GC,RAia33282:OC 
C0MM0X/3L2:/Sic:: (22,;6,32),SIC12(22,-:6,32),SIG22(22,:6,32) 

(  , SIG;3  (22, 16,32) ,SIG23 (22, 16,32) , SIG33 (22, 16,  32) 

COf®40N / 3L22 / I CHPB ( I 0 ) , NCHP I ( 1 0 ) , JCHPB ( 1 0 ) , NCHP J ( 1 0 ) , KCHPB (13), 

&  NCHPK(10),7CHP(10),CPS(1C),CONS(10),WFAN(10) 

CC»®40N/3L31/  TOD (22, 16, 32), ROD (22, 16, 32), POD (22, 16, 32) 
t  ,COD(22,16,32),UOD(22,16,32),VOD(22,16,32),WOD(22,16,32) 

COMMON/3132/  T(22, 16, 32) , R(22, 16, 32) , ? (22, 16, 32) 

(  ,C(22,16,32),U(22,16,32),V(22,16,32),W(22,16,32) 

COMMON/3L33/  TPD (22,  16,  32) ,  RPD (22, 16, 32) , PPD (22, 16,32) 

(  ,OPD(22,16,32),UPD(22,16,32),VPD(22,16,32),WPD(22,16,32) 

COMMON/3134 /  HEIGHT (22, 16,32) ,REQ (22, 16, 32) , 
i  SMP (22, 16, 32) , SMPP (22, 16,32) ,?? (22,16, 32) , 

6  3U(22,18,32),0V(22,16,32),OW(22,16,32) 

COMMON/3136/A?  (22, 1 6,  32) ,  AE  (22, 1C,  32) ,  AW(22, 16,  32) ,  AN  (22, 16,32) , 
i  Ab(22, 16,  32) , AF (22, 16,32)  ,AB(22, 16, 32) , 

t  S?(22, 16,32),SJ(22,16,32),RI(22,16,32) 

COMMON/5137/  VIS (22,  16,  32) ,  COND (22, 16, 32) , NOD  (22,  16,32) , SaAL1(579) CC28380C 
i  ,C?M(22,  16, J2),HSZ(3,2),NHSZ(22,16,32),RESORM(93)  S02839CO 

VW4SOM  wWW 
^ 


00281400 

00281500 

00281600 

00281700 

00281800 


00282300 
00282400 
00282500 
00282600 
00282700 
00282800 
00282900 
00283000 
00283100 
00283200 
00283300 
00283400 
00283500 
028361 
028371 


CALCULATE  COEFFICIENTS 


0028421 
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30  IOC  K-3,NK 

00284400 

KP2-K•^2 

00284500 

KPl-Kfl 

00284800 

KMl-K-i 

00284700 

KM2-K-2 

00284800 

DO  100  J«2,NJ 

00284900 

JP2-J+2 

00285000 

JPl-J-^i 

00285100 

JMl-J-1 

00285200 

JM2-J-2 

00285300 

30  100  1-2, NI 

C0285400 

:P2-I^2 

00285500 

IPl-Ii-l 

00285600 

IMl-I-1 

00285700 

IM2-1-2 

00285800 

IF  (1.EQ.2)  IM2-NIM1 

00285900 

IF  (I.EQ.NI)  IP2-3 

00286000 

00286100 

00286200 

CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

00286300 

00286400 

OXPl-XL(IPl,w,K,3,0) 

00286500 

OXI  -XL(I  ,J,K,3,0) 

00286600 

OXH1-XL(IM1,J,K,3,0) 

00286700 

00286800 

3YP1-YL(I,JP1,K,3,0) 

00286900 

DYJ  -YL(I,J  ,K,3,C> 

00287000 

3YM1-YL(I,JMI,K,3,C) 

00287100 

00287200 

3ZP1-ZL(I,J,KP1,3,0) 

00287300 

3ZX  -ZL(I,J,K  ,3,0) 

00287400 

3ZM1-ZL(I,J,KM1,3,C) 

00287500 

00287600 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

00287700 

00287800 

3XN-XL(I,J?:,K,3,2) 

00287900 

3X8-XL(I,J  ,K,3,2) 

00288000 

3XF-XL{I,J,XP;,3,3) 

00288100 

3XB-XL(I,J.K  ,3,3) 

00288200 

00288300 

3YF-Y1(:,J,X?1,3,3) 

00288400 

3YB-YL(I,J,X  ,3,3) 

00288500 

3ye-yl(ip:, j,x,3,:) 

00288600 

DYW-YL(I  ,--,K,3,:) 

00288700 

00288800 

3ZE-ZL(IP:, J,K,3, 1) 

00288900 

DZW-ZLC  ,.,K,3,:) 

00289000 

DZN-ZIC,  J?:,X,3,2) 

00289100 

3ZS-Z1(I,J  ,K,3,2) 

00289200 

00289300 

CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME 

00289400 

00289500 

DXEE-XL<:?2,J,K,3,:) 

00289600 

DXE  •XL(I?:,J,X,3,:) 

00289700 

3XW  -XL (I  ,J,X,3,1) 

30289800 

3XWW-XL(IK1,J,X,3,1) 

00289900 

00290000 

DYNN-YL(I,J?2,K,3,2) 

00290100 

3YN  -YL(:,J?;,K,3.2) 

0029C200 

DYS  -YL(I,J  ,f(,3,2) 

C029C30C 

3YSS-YH:,JX:,X,3,2) 

00290400 

C02905CC 

DZFF-ZLC,  J,KP2,3,3) 

C029C6CC 

DZF  -ZL(:,J,:<?’.,3,3) 

00290700 

3ZB  -ZIC.J.K  ,3,3) 

C02908CC 

3ZBB-ZL(:,-',KX1 ,3,3) 

00290 900 

00291000 

'  DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

00291100 
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3XYr-3X?*DYF 

DXY8»DX3*DYB 

DY2E«DY2*DZE 

DYZW«DYW*DZW 

DZXN-DZN*DXN 

DZXS«DZS*DXS 

VO>DX:»DYJ»DZK 

V0L27-V0L/DT:ME 

ZX0YK-3ZXN/DYM 

ZX0YS-3ZXS/DYS 

XYOZF-OXYF/DZF 

XYOZB-DXYB/DZB 

YZOXE-DYZE/DXE 

YZOXW-DYZN/DXW 


C  *•*  'JSS  SINGLE  AND  BI-LINEAR  INTERPOLATION  TO  EVALUATE 
C  (  PHYSICAL  PROPERTIES  AND  FLUX  ON  THE  SURFACES. 


GNF-SI1IN(R(I,J?1,K  ),R(I,J,K  » ,OYPl,DYJ) 'Vd.  JP1,K  ) 

GNB-SI1:N(R(I,J?1,KM1),R(I,J,KM1),0YP1,DYJ) *V(I,  JP1,KM1) 

gsf-s:l:n(R(I,jmi,k  ),r(i,j,k  ),dymi,dyj)»v(i,j  ,k  > 

GSa-s:i:N(R(I,v*Xl,KMl),R(I,J,KMl),DYMl,DYJ>»V(l,J  ,KM1) 

GF  ■s:1:N(R(I,J,KPI),R(I,J,K  ),DZFF,DZF)«W(I,J,KP1) 

G?  -S:i:N(R(I,J,XMn,R(I,J,K  ),DZB  ,DZF)*W(I,J,X  ) 

GB  -8:1:N(R(I,J,XM2),R(I,J,KM1),0ZBB,DZB)*W(I,J,KM1) 

GEr-SIL:N(R(IPl,J,K  >,R(I,J,K  ) ,OXPl,DXI) *0 (IPl, J,K  ) 

geb«s:l:n(R(ipi,j,kmi),r(i,j,kmi),oxpi»oxi)*u(ipi,j,xmi) 
gwf«s:l:n(R(imi,j,k  ),r(i,j,k  >,dxmi,dxi)*u(i  ,j,x  ) 

GMB«S I'.IN  (R ( IMl ,  J, KMl ) , R ( I ,  KMl) , DXMl , DXI )  *U  ( I  ,  J, KMl) 

CF«0.5*(GF+GP»»0XYF 

C3«C.5’(GP>G3)*0XYB 

cn-s:i:n (gnf, gnb,  uzf,  ozb) *dzxn 
cs-s:i:x  <csf, gsb,  ozf,  :zb) ‘dzxs 

ce-s:l;n (gef, geb, ozf, dzb) *dyze 
c»s:l;:;  (gwf,  gwb,  ozf,  ozb)  ‘DYZW 

v:sF-v:s(:, j.K  ) 
v:s3-v:s(:,j,xx'.) 


v;sN-  (viS(:,j?:,K  )-vis(i,j,x 

t  vise,  J?:,iWl>-rVIS(I,J,KMl))/4.0 

v:ss»  (viS(;,jMi,K  )*vis(i,j,k  >+ 

&  vise,  JM1,K.M1)+VIS(I,J,KM1))/4.C 

vise-  (vis(:?i,j,k  )i-vis(i,j,k  >  + 

(  VISCPl,  J,KMl)+VIS(I,J,KMl»)/4.0 

VISK-  (VISCMl.J.K  )WIS(I,J,K  )•>• 

t  VISdMl,  J,KM1)+VIS(I,J,XM1))/4.C 


v:sn:-zxoyn*visn 

v:ss:-zxoYs*viss 

v:se:-'zcxe«v:se 

v:sx:=Yzcxwv:sx 

v:3f:=xyozf*v:sf 

v:s3:-xYCZB»v:s3 


V 

00291300 

00291400 

00291300 

00291600 

00291700 

00291800 

00291900 

00292000 

00292100 

00292200 

00292300 

00292400 

00292500 

00292600 

00292700 

00292800 

00292900 

00293000 

00293100 

00293200 

00293300 

00293400 

00293500 

00293600 

00293700 

00293800 

00293900 

00294000 

00294100 

C02942CO 

00294300 

00294400 

0029  jOO 

00294600 

00294700 

00294800 

00294900 

00295000 

00295100 

00295200 

00295300 

00295400 

00295500 

w  we  *  w  w 

0029590: 

00295500 

r  • 

w  we  7w  ww  w 
w  we  7w • w  w 

00296200 

wwe9wwww 

wwe70hww 

00296500 

00296600 

w  we  7w  /  w  w 
w  we  7 w w  w  w 

00296500 

wwe7 'WWW 
'^AnQ7*  AA 
wwe7  > .ww 

00297200 

00297300 

00297400 

00297500 

A  AAQ-7£  A  A 

^  we  7  '  C  w  V 

A  A A  AA  AAA 

w  we  7  '  '  W  W 

00297900 

00297500 
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CEP- (ABS  <CE)  ♦■CE)  ‘OXFl *0X1/  (DXE*  (DXE+DXW  )  >  /8 . 

CEM- (ABS (CE) -CE) 'OXFl *0X1/ (DXE* (DXE+DXEE) ) /8 . 
CWP«(ABS(CW)i-CW)*DXMl*DXI/(DXW*  (DXW+DXWW) ) /8 , 

C»W- (ABS (CW) -CW) *DXM1 *0X1/ (DXW* (OXW+DXE  ) ) /8 . 

C 

CSP- (ABS (CN) +CN) 'DYBl *Dyj/ (DYK* (OYN+DYS  ) ) /8 . 

CNM» (ABS (CN) -CN) *DYP1 *DYJ/ (DYN* (DYN+DYNN) ) /8 . 

CSP- (ABS (CS) +CS) *DYM1*DYJ/ (OYS* (DYS+DYSS) ) /8 . 

CSM* (ABS (CS) -CS) *DYM1 *DYJ/ (DYS* (DYS+DYN  ) ) /8 . 

C 

c 

CFP*(ABS  (CF)  4.CF)  *DZF/DEK/16. 

CFM-(ABS(CF)-CF)*DZF/0ZP1/16. 

CBP-(ABS(CB) ^CB) *0ZB/0ZM1/1€. 

CBM* (ABS (CB) -CB) *OZB/DZK/ 1C . 

C 

AE(X,J,X)  —  .5*0X1 /OXE  *CE+CEP+CEM* ( I . +DXE/DXEE ) +CNM*DXW/DXE+VI SE 1 
AN(I,  J,  K)  •  .5  •0X1/0XM*C»I+C»(M+CMP*  (I  .♦DXW/DXMH)  +CEP*0XE/DXW+VISW1 
AN ( X ,  J,  X) . 5  *0YJ/0YN •CN+CNP+CNM* ( 1 . +DYN/DYNN ) ♦CSM*DYS/DYN+VX  SNl 
AS ( X, J, K) -  .5 •0YJ/DY8*C8+CSM+C8P* (1 .+0Y8/DYS8) +CNP*DYN/DYS+VXSSl 
C 

AT ( X, J, K) . 5 ‘CF+CrP+CPM* ( 1 . +DZF/DZFF) +CBM*OZB/DZF*VI SFl 
AB  ( X ,  J,  X)  •  .5  •CB4-CBM4CBP  *  ( 1 .  DZB/DZBB)  CFP  *DZF/DZB*VI  SBl 
C 

801  A£E*-CEM*OXC/DXCE 
AEEB-AES*WPD(1P2,J,X) 

802  CONTINUE 

803  ANN— CNP*DXM/OXNN 
ANm*ANH*WPD(IM2,J,X) 

804  CONTINUE 

IF  (J.LT.NJ)  (X)TO  80S 
ANN-0. 

ANNK*0. 

(X)TO  80C 

80$  ANN*-CXM*!?YN/DYNN 
ANNK*ANN*WP0(I,JP2,K> 

808  CONTINUE 

IF  (J.GT.2)  GOTO  807 
AS8*0. 

A88R-0. 

GOTO  8:8 

807  ASS*-CS?*0YS/1)YSS 
ASSR-ASS*W?D(  ;,JX2.K) 

808  CONTINUE 

IF  (K.IT.NK)  GOTO  809 
AFF-0 . 

AFFR-0. 

GOTO  810 

809  AFF— C?M*DZF/i)/?F 
AFFR-AFF'WPOC.J.XPZ) 

810  CONTINUE 


IF  (X.GT.3)  GOTO  811 
ABB-O . 

ABBR-C . 

GOTO  812 

811  ABB— Cs?*0Z3/l}ZB3 
ABBR«A33*KP0  ( : ,  J,  .KM2) 

812  CONTINUE 


C  »#»•»•»»••»##»##»#####•####*#***»****•••»»»»*•• 

C  «»» ft •»»««««••<<« i« »•«••* 


C0298000 

00298100 

00298200 

00298300 

00298400 

00298500 

00298600 

00298700 

00298800 

00298900 

00299000 

00299100 

00299200 

00299300 

00299400 

00299500 

00299600 

00299700 

00299800 

00299900 

00300000 

00300100 

00300110 

00300120 

00300200 

00300300 

00300400 

00300500 

00300600 

00300700 

00300800 

00300900 

00301000 

00301100 

00301200 

00301300 

00301400 

003015C0 

00301600 

00301700 

00301800 

00301900 

00302000 

00302100 

00302200 

00302300 

:0302<C0 

00302500 

00302?0C 

00302700 

0030280C 

00302900 

00303000 

00303100 

00303200 

00303300 

00303400 

003035C0 

00303600 

00303700 

00303800 

00303900 

00304000 

00304100 

00304200 

00304300 

00304400 

00304500 
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C  **•  MODIFICATION  FOR  DECK  300NDARIES 

900  CONTINUE 

IF  {N0D(IM1,J,K) .EQ.O)  GOTO  901 

AWW-0.0 

AWHR-O.C 

901  CONTINUE 

IF  (N0D(IP1,J,K) ,EQ.O)  GOTO  902 

AEE-0.0 

AEER-0.0 

902  CONTINUE 

IF  (N0D(I,JM1,K) .EQ.O)  GOTO  903 

ASS-0.0 

ASSR-0.0 

903  CONTINUE 

IF  (NOD(I,JP1,K).EQ.O)  GOTO  904 

ANN-0.0 

ANNR-0.0 

904  CONTINUE 

IF  (NOD(I,J,KM2) .EQ.O)  GOTO  90S 

ABB-0. 0 

ABBR-0.0 

905  CONTINUE 

IF  (NOO(I,J,XP1).EQ.O)  GOTO  906 
AFF-0.0 
AFFR-O.C 
90C  CONTINUE 


C  •••  SU  FROM  NORMAL  STRESS 

RF-<SIG33(I,J,X  )-(W(I,J,XPl)-W(I,J,K  >) ‘VISF/DEF) ‘DXYF 

RB- (SIG33 ( : , J, KMl ) - (W (I ,  J, X  J -W< I, J, KMl) ) ‘VISB/DEB) 'OXYB 
RN-<SIG23(I,J?1,K)-(W(I,J?:,K)-W<I,J  , X) ) *VISN/DYN> ‘DZXN 
RS-(SIG23(:,J  ,X)-(W(I,J  ,X)-W(I,JMl,K>)*VISS/DYS)»DZXS 
re-(sig:3(ipi,j,k)-<'a’(:?:,j,x)-w(i  ,j,x>)»vise/dxe)*dyze 
rw-(sig:3<:  ,j,x)-(w(:  ,j,k)-w(imi,j,k))*visw/dxw)*oyzk 

C  •••  SU  FROM  CURV'D  STRESSES  AND  ACCELERATIONS 

AVG23-C.5MS:G23(I,J?:,X)-rS:G23(I,J,K)) 
AVG13-C.3*(SIG13(IP1, J,K)tSIG:3{I,J,K)) 
AVG22-SIL:N(SIG22(I,U,X),S:G22(I,J,XM1).DZF,DZB) 
AVCll-SILIN (SIGi: ( :, J, X) , SIGH (I,  J,  KMl) ,DZF, DZB) 

AU3-W(I,J,X) 

AU2-BIL:X<V(I,J?1,X  ),V{I,U,X  ),0YJ,0YJ, 

t  V(I,JP1,KM1),V(:, J,KM1),DYJ,DYJ,  DZF,DZB) 

AUl-BILIX(U(:?i,U,X  ),U(I,J,X  ),DXI,OXI, 

&  U(IP1.U,X.M1),U(:,J,XNI),0XI,DXI,  DZF.DZB) 

AR-SIL:X(R(I, J,K),R(;,J,KM1>,DZF,DZB) 

ARU23»AR*AU2*AU3 

ARU13-AR*AU:*AU3 

ARU22«AR*AU2*AU2 

ARU11«AR*AU:*A'J1 

RRY«<AVG23-ARU23) 'DX! * (DZX-DZS) 

RRX-(AV3:3-ARU13) •DYJ. !D2r_3zw) 


00304600 

00304700 

00304800 

00304900 

00305000 

00305100 

00305200 

00305300 

00305400 

00305500 

00305600 

00305700 

00305800 

00305900 

00306000 

00306100 

00306200 

00306300 

00306400 

00306500 

00306600 

00306700 

00306800 

00306900 

00307000 

00307100 

00307200 

00307300 

00307400 

00307500 

00307C00 

00307700 

00307800 

00307900 

00308000 

00308100 

00308200 

00308300 

C0308400 

C0308500 

C030860C 

00308700 

00308800 

00308900 

00309000 

00309100 

00309200 

00309300 

00309400 

00309500 

00309600 

00309700 

00309800 

00309900 

00310000 

00310100 

00310200 

00310300 

00310400 

00310500 

00310600 

00310700 

00310800 

CC310900 

00311C0C 

00311100 

00311200 

00311300 
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?RZ«(AVG22-AR022) ‘DX:* (DYF-DYB)+ 

(  (avg::-aruii)»dyj*(dxf-dxb) 

A?(I,  J,:<)«AE(I,«*,K)+AW(I,J,X)+AN(I,  J,K)+AS(I,  J,K) 

*  -^AF  ( I,  J,  K)  +AB  <  1 ,  J,  K)  +AEE+AWW+ANN+ASS+AFF+ABB 

S? (I, J,X)  —  (ROD (I, J,K) ‘OZB+ROD (I,  J,  iO«l) 'DZF) / (DZB+DZF) *VOLDT 
S‘J(I,J,X»-  (ROD (l,J,K)«DZB+ROO (I, J,KM1)»DZF)/ (DZB+DZF) *VOLDT 

*  ‘WODd.J.K) 

S’J(I,J,X)-SU(I,J,K)+DXI»DYJ*(P(I,J,  KM1)-P(I,J,K)) 

«  +AEER+AWWR+ANNR+ASSR+AFFR+ABBR 

*  +RE-RW+RN-RS+RF-RB+RRY+RRX-RRZ 

«  -BODY* ( ( R ( I , J, K) -REQ ( I , J, K ) ) *DZB*COS (ZC(K))+(R(I,J, 

. —  ‘  2(MX) -REQ ( I, J, KMl) ) 'DZF'COS (ZC (KMl) ) ) / (DZB+DZF) *VOL*SIN (XC (I ) ) 
4.00  CONTINUE 

C  **•  take  care  of  B.C.  THRO  AN,AS,AE,AW, AP  AND  SO 

c 

C  •••  RADIOS  DIRECTION 

DO  500  K-3,NK 
00  500  >2,NI 
XMl-K-i 

CC  S?(I,2,X)-SP(I,2,K)+AS(I,2,K) 

S?(I,2,X)-SP(1,2,K)-AS(I,2,K) 

SO(I,2,X)-SO(I,2,K)+2.0*W(I,1,K)»AS(I,2,K) 

3?(I,SJ,K)-SP(I,N'J,K)-AN(I,SJ,K) 

AS(I,2,X)«0. 

AN(I,NJ,K)-0, 

500  CONTINUE 

C  •••  CYLIC  CONDITIONS 

00  502  X«3,NK 
00  502  J-2,NJ 

SO(2  ,.’,X)-80(2  ,J,K)+AW(2  ,J,K)*W(l  ,J,K) 

?.'',‘li^'’'.'!!!"®^<N*'-'‘<>'^^E<NI,J,K)*W(NIPl,J,K) 

Aa'(2  i.i.OaO.O 
AE(NI,J,X)-0.0 
302  CONTINUE 

C  •••  FRONT  AND  BACK  WALL 
00  60C  :-2,NI 
00  60C  J"2,NJ 


0?  ( :,  J,  :;x)  -sp  ( i ,  j,  xx)  +af  (  i,  j,  n: 
0?(:,J,3  )«SP(I,0,3  >-AB(I,J,3 

AT / •  •  VVV -A 


AF  c,  j,n:<)»c. 
Aa(I, J, 3)«0. 
600  CONTINUE 


:r  (SCKIP.EQ.O)  GOTO  1C5 

C  •••  yT:;r:cATION  FOR  DECK  BOUNDARIES 

00  101  N«1,NCHIP 
:2»ICK?3(N) 

;e«i3-nch?i (N)-: 

:sx>:3-: 

IE?1»IE-'- 

:=»jck?3(N) 

UE»J3’-NCH?J  (N)-'; 

i..' 

‘'3»kc;-:=5(N) 

;'£-KB-^XCH?K(N)-l 


• /An 
*4  W  J  •  •  T  WU 
A A A* • S AA 

vww 

0031:600 

(«4  AA  *  •  -JA  A 

ww«9«h*  ' vw 

00311800 

00311900 

00312000 

00312100 

00312200 

00312300 

00312400 

00312500 

00312600 

00312700 

00312B00 

00312900 

00313000 

00313100 

00313200 

00313300 

00313400 

00313500 

00313600 

00313700 

00313800 

00313900 

00314000 

00314100 

00314200 

00314300 

00314400 

05314500 

00314600 

00314700 

00314800 

00314900 

00315000 

00315100 

00315300 

00315400 

00315500 

00315600 

•  AAS  KAAA 
SfiAA 
**  •  5  QA  A 

£AAA 

w  w J •Owww 

•AA«C' •A 

00316200 

W  W J  M 

00316400 

nAA*  C£AA 

00316600 

w  yy •V'yy 

^AA«  eQAA 

•'A A-  ra*' A 
yyj «C7ww 

AMAA 
/  wwW 

AAA*  Aaaa 
W  W  J  *  *  J  V  W 
AAA*A/AA 

w  w  J  •  ^  T  w  ^ 
•AA*  7S'''' 
WVJa  'WWW 

AAA*  "T^AA 

<*  w  *  <  C  w  w 

A  A A  •  T* A  A 
W  M  ^  A  '  '  W  W 

00317800 
w  33  3 

A^  A*AAAA 
WwJaWWWW 

AAA*Q*AA 

WwJaC*VW 
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KBMl-KB-1 

KEPl-KE+1 


DO  102 

00  102  K-KB,KE 

SP ( I3M1 ,  J,  K) -SP ( IBMl ,  J, K) *AE ( IBMl , J, K) 

SO  ( IBMl ,  J,  K)  -SU  ( IBMl ,  J,  K)  +AE  ( IBMl ,  J,  K)  •WFAN  (N )  *2 . 0 
AE (IBMl, J,K) -0.0 


SP(IE,J,K)-SP(IE,J,K)-AW(IE,J,K) 

SO  < IE, J, K) -SU ( IE, J, K) +AW ( IE , J, K) *WFMI  (N ) *2 . 0 
AW(IE,J,K)-0.0 

102  COKTINUE 

DO  103  I-IB,IE-1 
DO  103  K-KB,KE 

SP(I,JBM1,X)-SP(I,JBM1,K)>AN(I,JBM1,K) 

SU  (I,  JBMl ,  K) -SU  ( I ,  JBMl,  K)  fAN  ( I,  JBH1,K)  *HFAN  (N)  *2 . 0 
AN(X,JBMl,K)-0.0 

SP(I,JE,X)-SP(I,JE,K)-AS(I,JE,K) 

S0(1,JE,K)-SU(I,JE,K)*AS<I,JE,K)«»»FAN(N)‘2.C 

AS(X,J£,K)-0.0 

103  CCN'TINUE 

DO  106  i-:b,ie-i 
DO  106  J-JB,JE*1 

80  ( 1 ,  J,  XBMl ) -SU  ( I ,  J,  XWl ) +AF  ( I ,  J,  KBMl )  •WFAN  (N ) 
SU(I,J,KEP1)-SU(1,J,KEP1)«AB(I,J,KEP1)*WFAN(N) 
AP(I,J,XBMl)-0.0 
AB(I,J,XEPl)-0.0 
106  CONTINUE 

C  ••*  FOR  THE  CEILS  INSIDE  OF  THE  OECXS 

DO  104  i-:b,:e-: 

DO  104  .ii— UB,vt** 

DO  104  K-XB,KE 
SP(I,J,X)  — 1.0E2 
AW(I,J,X)-0. 

AE{I,-*,K)-0. 

AS(:,J,X»-C. 

AN(:,w*,X)-C. 

A3<I,J, XI  - 
Ar(:,j,x)  • 

su(:,j,x)-:.oz2  •  wfaikni 

:04  CONTINUE 
101  CONTINUE 
105  CONTINUE 

C  ***»**«*<*t**«f«*»#»<«»f *•*««*«»•«••»•• 

C  Ititltf-**#****-*** ft •*#«#»«««##•«»•*•*•«*««*#■••**»»«•■« 


C 


ASSEMBLE 


COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 


DO  301  X-3,NK 
DO  301  J-2,NJ 
DO  301  1-2, M 
DX:-XL(I,  J,K,  3,0 
DYJ-YLd,  J,K,3,C) 

DXY-DXI 'DYC 

AP  ( I,  J,  X)  -A?  ( I ,  „ ,  K)  -SP  { I,  C,  X) 
DW( I,  J,  K> -DXY/AP { : , J, X) 


00318200 

00318300 

00318400 

00318493 

00318500 

00318600 

00318700 

00318710 

00318800 

00318900 

00319000 

00319100 

00319110 

00319200 

00319300 

00319400 

00319500 

00319600 

00319700 

00319800 

00319810 

00319900 

00320000 

00320100 

00320110 

00320200 

00320300 

00320400 

00320500 

00320600 

00320610 

00320620 

00320700 

00320800 

00320900 

00321000 

00321100 

00321200 

00321300 

00321400 

00321500 

00321600 

00321700 

00321800 

00321900 

^4  J 


00322100 

00322200 

00322300 

00322400 

00322500 

00322600 

00322700 

00322800 

00322900 

Jwww 

00323100 

00323200 

00323300 

00323400 

00323500 

00323600 

00323700 

00323800 

00323900 

00324000 
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301  CONTINUE  00324  ICC 

00324200 

00324300 

C  •••  SOLVE  FOR  W  00324400 

00324500 

CALL  TRIO  (2,2,3,NI,NJ,NK,W)  00324600 

00324700 

C  00324800 

DO  76  00324900 

DO  76  J-1,NJ  00325000 

W(I,J,2)-W(I,  J,3)  00325100 

W(I,J,NKP1)-W(I,J,NK)  00325200 

76  CONTINUE  00325300 

00325400 

00325500 

IF  (NCHIP.EQ.O)  GOTO  112  00325600 

C  f«*«t««4««t4«««««*«»w«f4*««i««*#«««««titt«««*«««*t*«««*»#«**«»t  00325700 

C  00325800 

C  RESET  THE  VELOCITY  INSIDE  OF  THE  DECKS  00325900 

00326000 

DO  110  N-1,NCHIP  00326100 

IB-ICHPB(N)  00326200 

IE>IB’*-NCH9I(N)-1  00326300 

JB-JCKPB(N)  00326400 

JE-JB-^NCHPJ(N)-1  00326500 

KB«KCKPB(N)  00326600 

XE«XB*NCHPK(N)-1  00326700 

DO  108  >IB,1E-1  00326800 

DO  108  J-JB,JE-1  00326900 

DO  108  K-XB,XE  00327000 

N(I,J,X)-MFAN(N)  00327100 

108  CONTINUE  00327200 

110  CONTINUE  0032730C 

112  CONTINUE  00327400 

00327500 

RETURN  00327600 

END  00327700 

00327800 

00327900 

- - 00328000 

............................................................  00328100 

SUBROUTINE  CAL?  00328200 

C  00328300 

COMMON/R4/XC (93) , YC (93) , ZC (93) ,  XS (93) , YS(93) , ZS (93) ,  00328400 

£  0XXC(93),0YYC(93),DZZC{93),DXXS(93),0YYS(93),DZZS(93)  00328500 

C0MM0N/3L1/DX, OY, 3Z, VOL, DTIME,  VOLDT.THOT, TCOOL, ?! , 3, QR  C03286CC 

commox/3L7/n:,n:?:,n:x:,nu,xupi,njmi,'NK,nkpi,nkmi  co3287oo 

£  ,NI?2.NJP2.NX?2.NA,;;A?1.NAN1,NS,NBP1,N3M1,KRUN,NCH:?,NJRA.NWRP  00328800 
C0MM0S/3L:2/  XXRITE,:;TAPE,KTMAX0,XTREAL,TIME,S0RSUM,:TER  00328900 

C0MH0N/3L:6/  const:, UUNST2, CONST3,CONST4, CONST6,NT, U0,H,UGRT, BUOY, 00329000 
£  C?0,?RT,CCNDC, vise,  shoo,  HR,  TR,TA,DTEMP,TWRITE,TTAPE,TXAX,GC,RAIR0032910C 
CO(Q40N/3L22/ICHP3(;0),NCK?I(10>,JCHPB(10),NCHPJ(10),t:CH?B(10),  00329200 

£  NCHPX(10),TCHP(:0),CPS(10),CONS(1C),'a'FAN(10)  00329300 

COHMON/3L31/  TOD (22,16, 32) , ROD (22, 16, 32) , POD(22, 16, 32)  00329400 

£  ,CCD(22,:e,32),UCO(22,16,32),VOD(22,16,32),WOD(22,16,32)  003295C0 

CCNe«OX/3L32/  T (22, 16, 32) , R(22, 16, 32) , P (22, 16, 32)  00329600 

£  ,0(22,16,32),U(22,16,32),V(22,16,32),W(22,16,32)  00329700 

COM>«N/3L33/  T?3 (22, 1 6, 32) , RPD (22, 16, 32) , PPO (22, 16, 32)  00329800 

£  ,0?D(22,:6,32),UPD(22,16,32),VPD(22,16,32),X?3(22,16,32)  0032990C 

CO^B^OS/3L34/  HE:Gp:T(Z2,  16,32)  ,REQ(22, 16,32) ,  C033C000 

£  3MP(22,:6,32),SMPP(22,:6,32),P?(22,16,32),  00330100 

£  3U(22,16,32),3V(22,16,32),DW(22,16,32)  C033C200 

CCMMON/3L36/A?(22,16,32),AE(22,16,32),AW(22,16,52),AN(22, 16,32) ,  00330300 

£  AS(22,18,32),AF (22,16,32),rtB(22,16,32),  0033C400 

£  3?(22,16,32),SJ(22,16,32),R:(22,16,32)  0C33C500 

C0^a^0^73137/  V:S(22,l£,32),0OND(22,16,32),NO3(?2,16,32) ,RWALL (579)00330600 
£  ,C?M(22,  18,321  ,:-;SZ(3, 2), NHSZ(22, 16,32)  ,RESCSy.(93)  00330700 

00330800 
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CALCULATE  COEFFICIENTS 

CC330900 

00331000 

30  IOC  K-2,NK 

00331100 

K?2«K-r2 

00331200 

KPl-K-1 

00331300 

KMl-K-i 

00331400 

KM2-K-2 

00331500 

DO  100  J-2,NJ 

00331600 

J?2»J-f2 

00331700 

00331600 

00331900 

JM2-J-2 

00332000 

DO  100  1-2, NI 

00332100 

IP2-I+2 

00332200 

:pi-i*i 

00332300 

IMl-I-i 

00332400 

IM2-I-2 

00332500 

IF  (I.EQ.Nl)  IPl-2 

00332600 

00332700 

00332800 

CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

00332900 

00333000 

DXP1«XL(IP1,J,K,0,0) 

00333100 

3X1  -XLd  ,J,K,0,0) 

00333200 

3XMl-XL(I'n,J,K,0,0) 

00333300 

00333400 

DYP1-Y1(I,J?1,K,0,0) 

00333500 

3YJ  -YL(I,J  ,K,0,C) 

00333600 

DYM1-YL(I,JM1,K,C,0) 

00333700 

00333800 

32P1-ZL(1,J,KP1,0,0) 

00333900 

OZK  •2L(I,J,K  ,0,0) 

00334000 

3ZN1-ZL(I,J,KH1,0,0) 

00334100 

00334200 

SURFACE  LENGTH  OP  THE  CONTROL  VOLUME 

00334300 

00334400 

DXN-XLC,  J?1,K,0,2) 

00334500 

3XS-XL(:,J  ,K,0,2) 

00334600 

0XF-XL(I,J,XP\,0,3) 

00334700 

OXB-XL(:,J,K  .0,3) 

00334800 

00334900 

0YF-Y1{I,J,K?1,C,3) 

00335000 

DYB-Y1(:,J,K  ,0,3) 

• V  w 

DYE-Y1{:?1,«',K,0, 1) 

00335200 

DYW-YLC  ,J,K,0,1) 

00335300 

00335400 

00335500 

3ZW-Z1(I  ,U,K,0,;) 

10335600 

DZN-ZLC,  J?:,K,n,2) 

00335700 

v2S*Zm 

00335600 

00335900 

00336000 

DEFINE  AREA  OF  THE  CONTROL  VOLUME 

00336100 

00336200 

DXYF-DXF*DYF 

00336300 

3XYB-0Xa*DYB 

00336400 

3YZE-DYE*DZE 

00336500 

:yzw-dyw*ozw 

00336600 

3ZXN-DZN*DXN 

00336700 

3ZXS-3ZS*DXS 

00336800 

00336900 

yOL-DXl*3YJ*3?.K 

00337COO 

VOL3T»VOL/3T:M!' 

00337100 

00337200 

?.N-  (R  ( I ,  J,  X)  *R  ( I ,  J?i ,  X)  *DYJ)  /  (DYPl-DYJ) 

00337300 

RS-  (R  ( I ,  X)  •  DYMl  +R  <  I ,  JMl ,  K)  *OYJ)  /  (DYXI  t-DYJ) 

00337400 

RE- <  R ( I , J, X ) • DXP 1 +R ( I ? 1 , J, X ) ‘DX: ) / (DX? : *DXI ) 

00337500 

RW-  (R  ( I ,  J,  X)  -DXMl  -rR  ( IX: ,  J,  X)  •OXI)  /  (DXMl-^DXI ) 

00337600 

Rr- (R ( I, J, K) *DZP1+R ( I , J, KPl ) 'DZK) / (DZPl+DZK) 
R3-(R{:,J,K)*DZM1+R(I,J,KM1)«DZK)/{D2M1+DZK) 

C  *•*  DU  ON  VERTICAL  WALLS  AND  DV  ON  HORIZENTAL  WALLS  ARE  ZERO 

AN ( I ,  J,  K) -RN •DZXN*DV ( I , J? 1 , K) 

AS { I, - ,  K) -RS*DZXS*DV ( I, J, K) 

AE(I,J,X)-RE*DYZE*DU<IP1,J,X) 

AW ( I, J, K) -RW*DY2W*DU ( 1 , J, K) 

AF(I,J,K)«RF»DXYF*DW(I,J,KP1) 

A3 ( I , J, X) -RB*DXYB*DW ( I , J, X) 

CN«RN*V(I,JP1,X)*DZXN 
CS-RS*V(I,J  ,X)*DZXS 
CE«RE*U(IP1,J,K)*DYZE 
CW»RW»U(:  ,J,X)*DYZW 
CF«RF«W(I,J,XP1)*DXYF 
CB-RB*N(I,J,K  )*OXYB 

SMP (I, J, X) — (R ( I , J, X) -ROD (I , J, X) ) *VOL/DTIME-CE+CW-CN+CS-CF+CB 
C  SMP(1,J,K)— CE+CW-CN+CS-CF+CB 

SU(I,J,X)»SMP{I,J,K) 

SP(X,J,X)-0. 

100  CONTINUE 

C  •••  TAXE  CARE  OF  B.C.  THRU  AN,AS,AE,AW,AF, AB,SP  AND  SU 
C 

C  ••*  RADIUS  DIRECTION 

DO  SOO  X«2,NK 
DO  SOO  >2,NI 
AS(I,2,X)«0. 

AN(1,NJ,X)«0. 

800  CONTINUE 

C  LEFT  WALL  AND  RIGHT  WALL 

DO  SOI  X-2,NR 
00  SOI  >2,NJ 
C  AW(2,.*,X)«0. 

C  AE(NI,J,X)-0. 

501  CONTINUE 

C  •••  FRONT  AND  3ACR  WALL 

00  502  :»2,NI 
00  502 

A3 (If  ^  1 2) *0«0 
AF(I,-',NX)-0  C 

502  CONTINUE 


IF  (NCKIP.EQ.O)  GOTO  105 

C  #####«##♦#••»#» ##############*♦♦##♦##♦##*#♦♦#*♦**•»»*•*»•♦»•* 
C  *#••••***»<***§# 

C  ...  modification  FOR  DECK  BOUNDARIES 

DO  101  N»1,SCKIP 

I3«ICK?3(N) 

lE-IB-XCHPI (X)-l 

I3M1-I5-: 

lEPl-IE-I 

«:3-JCK?3(N) 

JE»JB-fNCH?J{N)-l 

J3M1«J3-I 


00337700 

00337800 

00337900 

00338000 

00336100 

00338200 

00338300 

00338400 

00338500 

00338600 

00338700 

00338800 

00338900 

00339000 

00339100 

00339200 

00339300 

00339400 

00339500 

00339600 

00339700 

00339800 

00339900 

00340000 

00340100 

00340200 

00340300 

00340400 

00340500 

00340600 

00340700 

00340800 

00340900 

00341000 

00341100 

00341200 

00341300 

00341400 

00341500 

00341600 

00341700 

00341800 

00341900 

00342000 

00342100 

00342200 

00342300 

00342400 

0034250C 

00342600 

00342700 

00342800 

00342900 

00343000 

00343100 

00343200 

00343300 

00343400 

00343500 

C03436C0 

00343700 

00343800 

003439CC 

00344000 

00344100 

00344200 

00344300 

00344400 
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» 


jtpi-jz-: 

K3«KCr:?3(N) 

KE-K3-NCHPK(N»-1 

K3M1-K3-1 

KEPI-KEtI 

DO  102 

DO  102  X-KB,KE-i 
AE{IBM1,J,K)-0.C 
AW{IE,-*,X)-0.0 

102  CONTINUE 

DO  103  :-IB,IE-l 
DO  103  X-KB,KE-1 
AN(I,J3Ml,K)-0.0 
AS(I,U£,X)>0.0 

103  CONTINUE 

DO  106  I-IB,IE-1 
DO  106  J-JB.JE-l 
AF(I,J|XBM1)«0.0 
AB(I,w’,XE)«0.0 
106  CONTINUE 

C  •**  FOB  THE  CELLS  INSIDE  OF  THE  DECKS 

DO  10<  :-IB,IE-l 
DO  104  J-JB,JE-1 
DO  104  X«KB,KE*1 
SP(I,J,K>— 1.0E20 
AW(I,.*,X)-0. 

AE(I,J,X)«0. 

AS(I,J,X)<>0. 

AN(I,J,X)-0. 

SU(I,J,X)>0. 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 


C  ****§**#• 

C  i««f fat »aaaaa««fM a a»»t«<l*4*l«t«««»f«t««««f ««*#•** t«*«*lf**» 


C  ASSEI/alE  CU7.rF:ciENTS  AND  SOLVE  DEFERENCE  EQUATIONS 

DC  300  w*2rNJ 
DO  300  :-2,n: 

DO  300  X-2,NK 

A?(I,U,K)-AN(  :,  J,X)+AS(I,  J,X)+AE(I,J,K)+AW(I,U,K)-SP(:, J,X) 
C  -A?(:,U,K)rAB(I,J,X) 

300  CONTINUE 

C  •••  SOLUTION  OF  FINITE  DIFFERENCE  EQUATION 
CALL  T?.:D  (J',2,2,NI,NJ,NK,PP) 

C  THIS  IS  FOR  CKECKING 


DO  161 

C  WRITE  (c,«)  : 

949  FORMAT  {  '  M  ') 

C  WRITE  (e,949) 

C  WRITE  (6,  999)  ( (AW(I,  J,  K) , K=1,NKP1) , J»1,NJP1) 
161  CONTINUE 


00344500 

00344600 

00344700 

00344800 

00344900 

00345000 

00345100 

00345200 

00345300 

00345400 

00345500 

00345600 

00345700 

00345800 

00345900 

00346000 

00346100 

00346200 

00346300 

00346400 

00346500 

00346600 

00346700 

00346800 

00346900 

00347CCC 

00347100 

00347200 

00347300 

00347400 

00347500 

00347600 

00347700 

00347800 

00347900 

00348000 

00348100 

00348200 

00348300 

00348400 

003485C0 

00348600 

00348700 

003>>88C0 

00348900 

w aw w  w 

00349::: 

00349200 

00349300 

00349400 

00349500 

00349600 

00349700 

00349800 

00349900 

w Jwwwwww 

W  Ww  9w  • W  W 

0035C20C 

00350300 

00350400 

WWWWWWWW 

00350600 

00350700 

W  WWWWCw  W 

00350900 

WWJW*WWW 
wUOwa  •WW 

00351200 
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DO  160  I-;,NIP1 
C  WRITE  (6,*)  I 

S48  FORMAT  (  '  AE  ' ) 

C  WRITE  (6,948) 

C  WRITE  (6,999)  ( (AE(I, J,K) ,K-1,NKP1) , J-1,NJP1) 

160  CONTINUE 

DO  17C  I-1,NIP1 
C  WRITE  (6,«)  I 

958  FORMAT  (  '  AB  ') 

C  WRITE  (6,958) 

C  WRITE  (6,999)  ( (AB(I, J,K),K-1,NKP1) ,J-1,NJP1) 

170  CONTINUE 

DO  180  I-1,NIP1 
C  WRITE  (6,*)  I 
9CI  FOR(AT  (  '  AF  ') 

C  WRZTE  (6  9€8) 

C  WRITE  (6|999)  ( (AF(I,  J,K)  ,K-1,NKP1) , J-1,NJP1) 
180  CONTINUE 

C  WRITE  (6,999)  ( (SU(I,5,K)  ,K-1,NKF1)  ,I<*1,NIP1) 
DO  190  I-1,NIP1 
C  WRITE  (€,*)  I 
971  FOlWAT  (  '  SU  M 
C  WRITE  (6,978) 

C  miTE  (6,999)  ((SU(I,J,K),K«1,NKP1),J«1,NJP1) 

190  CONTINUE 

DO  191  I-1,N1P1 
C  WRITE  (6,*)  I 
C  WRITE  (6,988) 

988  FORMAT  (  '  PP  M 

C  WRITE  (6,999)  ( (PP(I, J,K) , J«1,NJP1) ,X«7,7) 

191  CONTINUE 

999  FORMAT  CSEIO.S) 


C  •••  CORRECT  VELOCITIES  AND  PRESSURE 
C 

C  •••  CORRECTION  FOR  VELOCITY  U 

DO  600  >2,NI 
IM1-I-: 

IF  (I.SQ.2)  IMl'NI 
DO  600  J-2.NJ 
DO  600  X-2,NX 

U(I,J,X)-U(:,J,X)  M)U(:, J,K)*(PP(IM1,J,K)-PP(I,J,X)) 
600  CONTINUE 

C  •••  CORRECTION  FOR  VELOCITY  V 

DO  603  J’»3,NJ 
JM1-J-: 

DO  603  X«2,NK 
DO  603  >2,NI 

V(I,J,X)-V(I,J,K)  iDVd,  J,K)*(PP(:,JX1,X)-PP(I,J,X>) 
603  CONTINUE 

C  •••  CORRECTION  OF  VELOCITY  W 

DO  604  X>3,NX 
KM1-X-: 

DO  604  1-2, N: 

DO  604  J-2,NJ 

W(I,J,X)-W(I,  J.K)  J,K)  MP?(I,J,KM1)-??  (:,U,X) ) 

604  CONTINUE 


CORRECTION  FOR  PRESSURE  ? 


00351300 

00351400 

00351500 

00351600 

00351700 

00351800 

00351900 

00352000 

00352100 

00352200 

00352300 

00352400 

00352500 

00352600 

00352700 

00352800 

00352900 

00353000 

00353100 

00353200 

00353300 

00353400 

00353500 

00353600 

00353700 

30353800 

C0353900 

80354000 

00354100 

00354200 

00354300 

00354400 

00354500 

00354600 

00354700 

00354800 

00354900 

00355000 

80355100 

00355200 

03355300 

00355480 

30355503 

0C3556CC 

00355700 

CC35580C 

00355900 

00356000 

00356100 

08356200 

30356300 

00356400 

00356500 

00356600 

00356700 

00356800 

00356900 

00357100 

00357200 

00357300 

00357400 

00357500 

00357600 

00357700 

00357800 

00357900 

00358CC0 
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DO  606  J-2,NJ 
DO  606  I-1,NIP1 
DO  606  K-I,NK 

P(I,J,K)-P<I,J,K)+PP(I,J,K) 

PP(I,J,K)-0. 

606  CONTINUE 

C  THIS  IS  FOR  R-0.0  CASE 

DO  75  I-i,NIPl 
DO  75  K»1,NKP1 
C  U(I,1,K)-U(I,2,K) 

C  M<I,1,K)-W(I.2,K) 

C  V(I,2,K)-V(I,3,K) 

75  CONTINUE 


C  *•*  MODIFICATION  FOR  R-0.0 
C 

DO  55  K-2,NK 
VY-0.0 
VX-0.0 
VZ-0.0 
DO  SO  1-2, NI 

Vy-VY4'U(I,2,K)«C08(XS(I)) 

VX-VX*U(I,2,K)*SIN(XS(I)) 

50  CONTINUE 

DO  51  >2,NI 

VY-VYW(I,3,K)*SIN(XC(I)) 
VX- VX<^V  ( 1 , 3 ,  K )  «  COS  ( XC  c  n 
VZ-VZfN(I,2,K) 

51  CONTINUE 


C  •••  FIND  THE  VELOCITIES  AT  R-0.5 
DO  52  1*1  NIPl 

U(I,l,K)-‘<-VX*S:X(XS(:))^VT«COS(XS(I)))/NIMl 
V(I,2,K)-  (VX*C0S(XC(:))*VY»SIN(XC(I)))/NIM1 
W(X,1,X)-VZ/NIM1 
52  CONTINUE 
55  CONTINUE 


C  •"  THIS  IS  FCa  THE  CYLINDER  CNLY  <CYLIC  CONDITION) 

DO  76  J-:,XJP’. 

DO  76  K-:,XXP! 

U<l,J,K)-U(N!,w,X> 

U(NIP1,J,X)«U(2,J,K) 

V(1,J,X)-V(XI,  J,K) 

V(NIP1,J,X)-V(2,J,K) 

W(1,J,X)*K(NI,J,X) 

M(NIP1,J,K)-W(2,J,X) 

76  CONTINUE 

C  •••  THIS  FOR  SPHERE  ONLY 

DO  77  I»i,N:?l 
DO  77  w'-;,NJPl 
■-’(i,j,:)»’v;(:,.;,2) 

v(i,wM)«v(:,  j,2) 

W(I,J,2>*W(:,  J,3) 

•j(i,j,nkp:)=w(:,j,nk) 

V(I,J,NKP1) =V(:, J,XK) 

W(I,J,NKPl)=/i(I,  J,NK) 


00358100 

00358200 

00358300 

00358400 

00358500 

00358600 

00358700 

00358800 

00358900 

00359000 

00359100 

00359200 

00359300 

00359400 

00359500 

00359600 

00359700 

00359800 

00359900 

00360000 

00360100 

00360200 

00360300 

00360400 

00360500 

00360600 

00360700 

00360800 

00360900 

00361000 

00361100 

00361200 

00361300 

00361400 

00361500 

00361600 

00361700 

00361800 

00361900 

00362000 

00362100 

00362200 

00362300 

00362400 

CG362500 

00362600 

00362700 

00362800 

00362900 

00363000 

00363100 

00363200 

00363300 

00363400 

00363500 

00363600 

00363700 

00363800 

00363900 

00364000 

00364100 

00364200 

00364300 

00364400 

003645CC 

00364600 

00364700 

00364800 
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77 


vW JOdwWV 

:o365:cc 


;?  (NCKIP.EQ.O)  GOTO  116 

CC363250 

c  ##*««•>•#?«#««***«**#«**##«***«•*•««*«#*«#««*#*****«****« 

CC3653CC 

C0365<CC 

C  RESET  THE  VELOCITY  INSIDE 

OF  DECK 

C03655CC 

C036S60C 

DO  120  N-1,NCHIP 

C0365700 

:3-ICK?B(N) 

C0365800 

:E«IB-rNCHPl(N)-l 

C0365900 

JB"JCKPB<M) 

30366000 

JS«JB-^NCHPJ(N)«1 

00366100 

KB-KCKPB(N) 

30366200 

XE«l(B<i>KCHPK(N)-l 

33366300 

03366313 

00366392 

00366394 

DO  1C9  I-XB,1E 

00366400 

DO  109  J-JB,JE-1 

00366500 

DO  109  X«XB,KE-1 

00366600 

U(:,y,X)-0.0 

30366700 

109  CONTINUE 

00366800 

00366900 

DO  IIB  >IB,IE-1 

00367000 

DO  118  >JB,JE 

03367100 

DO  111  X«XB,KEol 

C3367200 

v(:,;,x>«o.o 

C0367300 

111  CONTINUE 

:3367400 

30367500 

DO  119  >IB,IE*1 

33367600 

DO  119  >JB,JE-1 

30367700 

DO  119  X-XB,KE 

00367800 

Ma,J,X>-NFAN(N) 

30367900 

119  CONTINUE 

00361000 

120  CONTINUE 

0336I1C0 

Hi  CONTINUE 

00361200 

C036I30C 

03361400 

:036I500 

C  RECALCULATE  THE  ERROR 

SOURCE  AFTER  CORRECTIONS  OF  U,  V,  ? 

:C368603 

C33687C0 

scRsuy.«o . 

:33'3IC0 

r£sorm(:ter)-o. 

10368900 

DC  7CC  >2,NJ 

00369000 

4 w J  09 • w  w 

• 

00369200 

DC  7c:  :-2,n: 

00369300 

00369400 

IX1»I-1 

00369300 

DC*7CC*X-2,NK 

^  w  w 

KP1-X-: 

JC3697CC 

X.X1-X-: 

00369800 

00369903 

A 

r.  CENTRAL  LENGTH  OF  THE 

SCAUR  CONTROL  VOLUME 

^  w  J  f  w  •  w  V 

DX?:-X*_(I?1,J,K,0,C) 

00370300 

DX:  -XL(I  ,J,X,0,C) 

00370400 

DXM1«X1(IM1,J,K,0,C» 

w  V  J  >  W  ^  W  W 

00370600 

DY?:»YL(I,J?1,K,C,0) 

^  J  /  W  '  «r  V 

DYJ  «YD(:,J  ,K,0,C) 

/  wCw«/ 

DYv:«Yl(:,JMl,K,0,C) 

003709:0 

0037000: 

:z?i»zi<:,j,xpi,c,c) 

0:37:2:: 

:zxi»zi<:, j,KMi,c,C) 

0037:3:: 

* 
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C  ***  SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

aXN«XL(I,J?l,K,0,2) 

OXS-XL<I,J  ,K,0,2) 

DXF«XL(:,J,KP1,0,3> 

DXB"XL(I,J,X  ,0,3) 

DYF"YL(I,J,  KP1,0,3> 

DYa-YL(I,J,K  ,0,3) 

DYS-YL(IP1,J,K,0,1) 

DYW-YL(I  ,J,K,0,1) 

DZE-ZL(ZP1,J,K,0,1) 

DZW-ZLC  ,J,K,0,1) 

OZN-ZL(I,JP1,K,0,2) 

DZS>iZL(I,J  ,K,0,2) 


C  DEFINE  AREA  OF  THE  CONTROL  VOLUME 

DXYP-DXF*DYF 

OXYB-DXB*DYB 

OYZE-DYE*DZE 

DYZN-DYW*DZW 

DZXN«DZN*DXN 

DZXS«DZS*0XS 

VOL-DXI*OYJ*DZK 

VOLOT-VOL/DTIME 


RN- (R (I , J, K) ‘OYFl+R ( I , JPl , K) ‘OYJ) / (DYPI+DYJ) 

RS-  <a  a ,  K)  'DYMl ♦R  ( I ,  JMl ,  K)  ‘RYJ)  /  (OYMl ♦DYJ) 
RE»(R(I,J,X)»DXPWRJ1PI,J,K)*DXI)/(DXPI'»0XI) 
RN-(R(:,J,X)*DXM14-R(IM1,J,K)*0XI)/(DXM1<»'DXI) 
RF-(R(:,J,X)‘0ZP1*R(I,J,KP1)*DZK)/(DZPUDZK) 

RB«  (R  ( I ,  J,  X)  *0ZM1  «R  ( I ,  J,  XMl )  ‘OZK)  /  (DZMl’t'DZK) 

CN-RN*V(:,JP1,X)02XN 
CS-RS*V(:,J  ,K)*DZXS 
CE»R£»U<:?:,J,X)«DYZE 
CX«RW*U(:  ,-',R)*DYZW 
CF-a?-W(:,J,KPl)«DXYF 
:a-R3*w(:,j,K  »oxyb 
c  nx?  ( : ,  j,  X)  «-c?.  rcx-CN»cs-CF^CB 

sx?  ( : ,  j,  X)  —  ( a  ( :,  »*,  X)  -rod  (  i  ,  j,  X)  )  -vol/otime-ce -cw-cx-tCs-cf-cb 

C  •••  30RSUX  IS  ACTUAL  MASS  INCREASE  OR  DECREASE  FROM  CONTINUITY 
C  EQUATUON  ,  THIS  WILL  COMPARE  TO  SOURCE  ' 

SORSUM-SORSUMfSMP ( I , J,  K) 

C  RESORM  IS  SUM  OF  THE  ABSOLUTE  VALUE  OF  SM?(I,J,X) 

RESORM ( ITER)  RESORM (ITER) >ABS (SMP ( I , J, K) ) 

700  CONTINUE 
RETURN 
END 


SUBROUTINE  TR ID (I3T, JST, XST, ISP, JSP, KSP, PHI ) 

coy-yoN/3L7/N : ,  n  : ,  nimi  ,  n  j,  njpi  ,  s  jmi  ,  nk,  nxpi  ,  uxxi 


00371<C0 

00371500 

00371600 

00371700 

00371800 

00371900 

00372000 

00372100 

00372200 

00372300 

00372400 

00372500 

00372600 

00372700 

00372800 

00372900 

00373000 

00373100 

00373200 

00373300 

00373400 

00373500 

00373600 

00373700 

00373800 

00373900 

00374000 

00374100 

00374200 

00374300 

00374400 

003745C0 

00374600 

00374700 

00374800 

00374900 

00375000 

00379100 

00379200 

00379300 

00375400 

00375500 

00375600 

00375700 

00375800 

00375900 

J  /Owww 
f p  4 

00376200 

00376300 

00376400 

00376500 

00376600 

00376700 

00376800 

00376900 

00377000 

00377100 

00377200 

00377300 

00377400 

00377500 

00377600 

W  f  *  W 

«»003778C0 

00377900 

«'>0O3780C0 

00378100 
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\ 


«  , NI P2 , N JP2 , NK?2 , NA, XAP 1 , NAMl ,  NB ,  NBP 1 , NBMl , KRUN , NCKI P , N JRA, NWRP 

C0MM0N73L36/AP (22,16, 32) , AE (22, 16,32) ,AW(22, 16,32) , AN (22, 16,32) , 
fi  AS(22,16,32),AF(22,16,32),AB(22,16,32), 

fi  SP(22,16,32),S'J(22,16,32),RI(22,16,32) 

DIMENSION  A (99), B (99), 0(99), PHI (22, 16, 32) 

C  GOTO  <C5 

ISTM1-:ST-1 

A(ISTMl)-0. 

C(ISTMl)-0. 

DO  100  J-JST,JSP 
DO  100  K«KST,KSP 
DO  101  >IST,ISP 
A(I)-AE(I,J,K) 

B(I)-AH(I,J,K) 

C<I)«AN(I,J,K)»PHI(:,>l,K)+AS{I,J,K)*PHI{I,J-l,K) 

«  -AF(l,J,K)»PHI(I,J,K+l)+AB(l,J,K)*PHI(I,J,K“l)-^SU(I,J,K) 
TEW^l./<AP(I,w*,K)-B(I)«A(I-l)) 

IF  (AU(A(1))  .LE.l.OE'lO)  A(I)«0.0 
IF  (ABS(B(I)) .LE.l.OS’lO)  B(I)-0.0 
IF  <AB8(C(I)) .LE.l.OE'lO)  C(I)«0.0 
IF  (ABS(TERM) .lE.l.OS-lO)  TERM-0.0 
A(I)-A(I)*TERM 
C(I)-<C(I)+B(I)»C(I-i))*TERM 

101  CONTINUE 
PHI(I5?,J,K)-C(ISP) 

ISTA-IS>1 

DO  102  ;;-ISTA, ISP 

I-IST-rlSP-II 

IPI-I-I 

PHI(I,J,X)-A(I)»PHI(:?1,J,X)*C(I) 

102  CONTINUE 
100  CONTINUE 

DO  2000  J»JST,JSP 
DO  2000  K-KST,KSP 
PHI  CST-l ,  J,  K)  -PH I  ( :s?,  J,  K) 

pHi(is?»i,j,x)»pHi(:s:,j,R) 

2000  CONTINUE 


JSTMl-JSr-l 

A<JSTX1)«C. 

C(JSTX1)»C. 

DO  200  X-XST,XSP 

DO  200  :-:sT, IS? 

DO  201  J-JST,JC? 

A(J)»AX(:,-’,X) 

S{J)-AS(:,J,X) 

c  ( J)  -AE  ( : ,  J,  X)  •  PH  I  ( :- 1 ,  J,  X)  *AW  ( I ,  J,  x)  'PHI  ( :-i ,  j,  x) 
i  -A?(I,J,K)»Pi!I(:,  J,x+1)+AB(I,J,X)  •PHI(I,J,X-1)*SU(I,J,X) 
TERM-1 . / ( AP ( I , U, X ) -3 ( J) 'A ( J-1 ) ) 

-7  (AaS(A(J)) .lE.l.OE-lO)  A(J)-0.0 
IF  (A3S(3(J)) .LE.l.OE-lO)  3(J)-0.0 
IF  (A3S(C(J)) .lE.l.CE-10)  C(J)-0.0 
IF  (A3S(TERM) .1£.I.OI-:0)  TERM-0.0 
A(J)-A(J)-TERM 
C  <  J) -  (C  ( J)  *3 ( J)  ( J-l ) )  'TERM 

201  CONTINUE 
?HI(:,JS?,X)-C(UC?) 

JSTA-JST-1 

DO  202  JJ-JSTA,.;U? 

J-JST-USP-JJ 

JPl-J-l 

PHKi,  j,X)-A(j)  (I,  j?i,x)-^c(j) 

202  CONTINUE 
200  CONTINUE 


00378200 

00378300 

00378400 

00378500 

00378600 

00378700 

00378800 

00378900 

00379000 

00379100 

00379200 

00379300 

00379400 

00379500 

00379600 

00379700 

00379800 

00379900 

00380001 

00380002 

00380003 

00380010 

00380020 

00380100 

00380500 

00380600 

00380700 

00380800 

00380900 

00381000 

00381100 

00381200 

00381300 

00311400 

003I1S00 

00381600 

00381700 

00381800 

00381900 

00382000 

00382100 

00382200 

00382300 

00382400 

C0382SCC 

00382600 

00382700 

00382800 

00382900 

00383000 

00383100 

00383200 

00383210 

00383220 

00383230 

00383240 

00383300 

C03834C0 

00383800 

00383900 

00384000 

00384100 

00384200 

C03843CO 

00384400 

00384500 

00384600 

00384700 
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:0  2C01  J»JST,JS? 

DO  2001  K-KST,KSP 
PHI < :ST-1 ,  J, K) -PHI ( IS? , J, K) 
?HI{ISP+1,J,K)-PHI(:ST,J,K) 
2001  CONTINUE 


KSTMl-KST-1 

A(KSTKl)-0, 

C(KSTM1)»0. 

DO  300  I-IST,ISP 
DO  300  J«JST,JSP 
DO  301  K-KST,KSP 
A(K)-AF(I,J,K» 

B(K)-AB<I,J,K) 

C(K)-AE(1,J,K)*PHI(I+1,J,K)+AH(I,J,K) ‘PHI (I-l, J,K) 

«  -AN(I,J,K)*PHI(I,J+UK)+AS(I,J,K)*PHI{I,J-1,K)+SU(I,J,K) 
TERM-1./ (AP ( I, J,K)-B(K) *A(K-1>> 

IF  (ABS(A(K)) .LE.1.0E«10)  A(K)-0.0 
IF  (ABS(B(X)).LE.1.0E«10)  B(K)-0.0 
IF  (ABB(C(K)) .LE.l.OE-10)  C(K)-0.0 
IF  (ABS(TERM) .LE.l.OE-10)  TERH-0.0 
A(R)-A(K) *TERM 
C  (K)-(C  (K)  ■••B(K)  ‘C  (K-1) )  ‘TERM 

301  CONTINUE 
?HI(I,J,KSP)-C(KSP) 

XSTA-XST-t-l 

DO  302  KK-KSTA,XSP 

X-KST+XSP>KX 

XPl-X^l 

?HI<I,J,X)-A(K)*PHI(I,J,KP1)+C(K) 

302  CONTINUE 
300  CONTINUE 

DO  2002  J«JST,JSP 
DO  2002  X-KST,KSP 
?Hl<IST-l,J,X)-PHI(ISP,J,K) 

?HI(IS?*1,-*,K)-PHI<IST,J,K) 

2002  CONTINUE 


50T0  700 

«05  CONTINUE 
405  XSPl-KSP-l 
3(KS?:)-C. 

c(xs?:)«o. 

DO  600  i:-:sT,isp 
:-isttisp-ii 
DO  600  JJ-JST,JSP 
w— .JST+wS?"uj 
DO  601  XK-KS7,KS? 

X-KSP-rKST-KX 

XP1-X-: 

A(K)-A?(:,J,K) 

3(K)-AB(I,J,X) 

C{K)-AE(:,  J,X)*PKI(:  +  1,J,K)+AW(I,J,K) *PHI (I-l, J, K) +AN (I, J, K) • 
&  PKKI,  Jfl,K)-rAS(I,U,K)*PHI(I,J-l,K)+SU(I,  J,K) 

r-RM-:./{AP(I,  J,X>-A(K)  •B(K-t-l») 

3(K)»3(X) 'TERM 

C{K)-(C(X)tA(K) ‘OJK+D ) 'TERM 
IF  (A3S(A(K)) .LE.:,0E-10)  A(K)-0.0 
IF  (A3S(3(K) ) .LE.l.CE-:0)  B(K)«0.0 
IF  (A3S(C(K))  OE-10)  C(K)-0.0 

601  CONTINUE 

?HI(I,J,KST)=C(KST) 

XSTP1-XST+: 

DO  602  K=KST?1,KS? 


00384800 

00384900 

00385000 

00385100 

00385200 

00385300 

00385400 

00385500 

00385600 

00385700 

00385800 

00385900 

00386000 

00386100 

00386200 

00386300 

00386400 

00386500 

00386510 

00386520 

00386530 

00386540 

00386600 

00386700 

00387100 

00387200 

00387300 

00387400 

00387500 

00387600 

00387700 

00387600 

00387900 

00388000 

D038B100 

00388200 

00388300 

00388400 

00388500 

00388600 

00380700 

00388800 

00388900 

00389000 

00389ICC 

00389200 

00389400 

00389:00 

00389600 

00389700 

00389800 

00389900 

00390000 

0039CI0O 

00390200 

00390300 

00390400 

00390500 

0039C600 

00390700 

00390800 

0039C90C 

WW  J 

00391200 

00391300 

0039I4CO 
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602  CONTINUE 
600  CONTINUE 

DO  2003  J-JST,JSP 
DO  2003  X-KST,KSP 
PHI<IST-1,J,K)-PHI(ISP,J,K) 
PHI ( ISF+1 ,  J, K) -PHI ( 1ST, J, X) 
2003  CONTINUE 


JSPl-JSP-t-l 

B(JSPl)-0. 

C(JSPl)-0. 

DO  500  XX-KST,XSP 

X-KST^'KSP'KX 

DO  500  II-ZST,ISP 

I-18T+1SP-II 

00  501  JJ-J8T,JSP 

J-JSP+J8T-JJ 

JPl-J+l 

A<J)-AN(X,J,X) 

B(J)-AS(1,J,K) 

C(J)-At(X,J,K)*PHI(l«l,J,X)  ■»-AN(X,J,X)  *PHX  (X>1,  J,K)4^AF  (X,  J,X)  • 
6  ?HX(X,J,K^l)fA8(X,J,X)*PHX(X,J,X-l>*SU(X,J,X) 
TSItM-l./(AP(X,J,K)«A<J)«B(J<rlH 
a(J)-B(J)*TERM 

C  ( J)  -  (C  ( J)  -A  ( J)  •€  ( J^l ) )  •TERM 
IF  (AB8(A(J)) .LE.l.OE-10)  A(J>-0.0 
IF  (ABS(B(Jn .LE.l.OE'lO)  B(J)-0.0 
IF  (ABS(C(J)) .LE.I.OE-10)  C(J)-0.0 
501  CONTINUE 

PHX(X,JST,K)-C(J8T) 

JBTP1-JST<^1 

DO  502  J-JSTP1,JSP 

PHX(1,J,X)-B(J»»PHX(X,J-1,X»*C(J) 

502  CONTINUE 
500  CONTINUE 

DO  2004  J-JST,JSP 
DO  2004  K-K8T,XSP 
PHHIST-1,  J,XJ-PK!(ISP,J,X) 

PHI (ISPtI,  J, X) -PHI (1ST,  J,  X) 

2004  CONTINUE 


:s?i-:sp-: 

3(:s?;)-o. 

CdSPD-C. 

•,0  400  WM— 
w— UST^wS?*^'*^ 

DO  400  XX-XST,XSP 
K-XST*XS?-XX 
DO  4o:  :;-:sT, isp 
;-isp-:sT-:: 

:?i-i-: 

A.I)-A£{I,J,X) 

3(I)-AH(:,U,X) 

C(I>-AN(I,J,K)«P!!:(:,Jri,X)*AS<I,J,X)  •PHI(I,J-i,X)»AF(:,  J,X)» 
(  PHI  ( : ,  J,  K*  1)  ♦AB { I,  J,  X)  'PHI  (I,  J, X-l )  »SU  ( : ,  J,  X) 
TZRM-1./(AP<!,J,K)-A(I)*B(I-:)) 

3<I)-B(:)*TERM 

c(:»=(c(:)-A(i) •c{:t1))«ter« 

:?  (ABSCAO)  .LE.l.CE-lO)  A(I)-0.0 
:?  (ABS(3(:))  .LF..1.CZ-10)  BO-O.O 
:?  (ABSCCO)  .LE.:.OE-10)  co-o.o 
401  CONTINUE 

?h: (ist,j,x>»c( :s7) 


C0391500 

00391600 

00391700 

00391800 

00391900 

00392000 

00392100 

00392200 

00392300 

00392400 

00392500 

00392600 

00392700 

00392800 

00392900 

00393000 

00393100 

00393200 

00393300 

00393400 

00393500 

00393600 

00393700 

00393100 

00393900 

00394000 

00394100 

00394200 

00394300 

00394400 

00394500 

00394600 

00394700 

00394100 

00394900 

00395000 

00395100 

00395200 

00395300 

00395400 

00395500 

00395600 

00395700 

00395800 

00395900 

00396000 

00396100 

00396200 

00396300 

00396400 

00396500 

00396600 

00396700 

00396800 

00396900 

00397000 

003971C0 

00397200 

00397300 

003974C0 

00397500 

00397600 

00397700 

00397800 

00397900 

00398000 

00398100 

00398200 
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f>  <>  o  f)  r> 


402 

400 


:s?p:-ist+i 

DO  402  I-ISTP1,:S? 

?HI(:,J,K)«B(I>-PHI{:-1,J,K)+C(I) 

COKTINUE 

COXriKUE 


DO  2005  J-JST,JS? 

DO  2305  K-KST,KSP 
PHI  CST-l ,  J,  K)  -PHI  ( ISP,  J,  K) 
PHI (ISP+1 , J, K) -PHI { IS7, J, K) 
2005  CONTINUE 


700  CONTINUE 
RETURN 
END 


BLOCK  DATA 


00396300 

00398400 

00398500 

00398600 

00398700 

00398800 

00398900 

00399000 

00399100 

00399200 

00399300 

00399400 

00399500 

00399600 

00399700 

00399800 

00399900 

00400000 

00400100 

00400200 

00400300 

00400400 

00400500 

00400600 


C0MM0N/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NXP1,NKM1 
«  , N IP2 , N JP2 , NXP2 , NA, NAP 1 , NAMl , NB, NBP 1 , NBMl , KRUN , NCHIP , N JRA, NWRP 

COMMON/BL12/  NNRITE,NTAPE,NTMAXO,NTREAL, TIME, SORSUM, ITER 
COMMON/BL14 /HCOEF,  TINF,  CNT,  ABTURB, BTORB, VISL, VI SMAX, QCORRT, PMl , PM2004  00700 
COMMON/BL16/  CON8Tl,CONST2,CONST3,CON8T4,CONST6, NT, UO.H.UGRT, BUOY, 00400800 
«  C?0,PRT,  CONDO, VISO,RHOO,  HR,  TR,TA,OTEMP,THRITE,TTAPE,TMAX,GC,RAIR004009CO 


DATA  N:92,NIP1,NI,NIM1/23,22,21,20/ 

DATA  KJP2,NJP1,NJ,NJM1/17,16,15,14/ 

DATA  NKP2,NKP1,NK,NKM1/33,32,31,30/ 

DATA  NAPl,NA,NAMl,NBPl,NB,NBMl/9,8,7,27,26,25/ 
DATA  UO , 7A,  PRT, RHOO , CPO , VISO, NTMAXO/ 

«  1.0, 555. 86, 1.0, 0.0714,0. 24, 1.5€B-4,0/ 

DATA  TINF , CNT, ABTURB, BTURB/ 1.0, 0.2,2. 0,1.0/ 
DATA  GC,RAIR/32. 17, 53.34/ 

DATA  QCORRT, PMl /I. 0,0. 9/ 

END 


00401000 

00401100 

00401200 

00401300 

00401400 

00401500 

00401600 

00401700 

00401800 

00401900 

00402000 

00402100 


SUBROUTINE  GRID 


C0MM0N7R4/XC(93),YC(93),ZC(93),XS(93),YS(93),ZS(93), 

(  DXXC(93),DYYC(93),DZZC(93),DXXS(93),DyYS(93),DZZS(93) 

C0XX0S/311/DX, D Y,  DZ , 701, DTIME, VOLDT, THOT, TCOOL, , a, 3R 
COXXON/ 317 / N I ,  N  : ?  1 ,  N : XI ,  N J,  N JP 1 ,  N JMl .-NK ,  NKP 1 ,  NKMl 
i  ,N':?2,NJ?2,N:<P2,NA.  .MAPI,  NAMl,  NB,NBP1,  NBMl,  XRUN,NCK:P,NJRA,  NWRP 


19 


19 


RENSRATION  CF  GRID 

p:-4.-atan(i.) 

DX-1.0/?10AT(SIM1) 

DY- 1. /FLOAT (NJMl-2) 
3Y-1./F10AT(NJM1-:) 
0Z-?I/F10AT(NKMi-NB-rNA-2) 


DO  19  :-l,NIP2 

xs<:>-(:-2> •DX'Z. 


XS(1)«-DX*2.:*PI 

XS(2)«C.C 

xs<3)-c.;;'2.c*?: 

DO  19  >4,13 
XSO'C-S)  •DX*2.C*?: 
CONTINUE 


00402400 

00402300 

00402600 

00402700 

00402800 

00402900 

00403100 

00403200 

00403300 

00403400 

00403300 

00403600 

004C3700 

00403800 

00403900 

00404000 

00404100 

00404200 

00404300 

00404400 

00404300 


00404800 

00404900 

00405000 
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O  U  t>  t  J  o  o 


XS(14)-XS(13) 
XS(13>-XS(14)-0.01»2.0*PI 
DO  18  1-15, NIPl 
XS<Il-XS(14)+(I-i4)*DX*2.0*PI 
18  CONTINUE 

XS(NIP2)-XS(NIP1)4'XS(3) 


ys(i)-o.ooo 

YS(2)-0.025 
c  ys(3)-o.os 
DO  3  J-3,NJ 
YS{J)-(J-2)*Dy 

3  CONTINUE 
YS(NJP1>-YS(NJ) 

YS(NJ  )-YS(NJPl)-3./8./l2./9.6 
Y8(NJP2)-YS(NJPl)-»-3./8./12./9.€ 

CC  DO  3  J«4,NJP2 
CC  YS(J)»(J-3)»DY 
CC  3  CONTINUE 

DO  4  I-1,NIP1 
IPl-r+l 

OXXC(I)-XS(IPl)-XS(I) 

4  CONTINUE 

DXXC(NIP2)-DXXC(NIP1) 

DO  S  >2,NIP2 
lMl-I-1 

0XX8 ( I ) • . 5 *  (DXXC (I ) -*-DXXC ( IMl ) ) 

5  CONTINUE 
DXX8(:)-DXXS(2) 

00  7  J-l,NJPl 
JPl-J^i 

OYYC(J)-YS(JPn-YS(J) 

7  CONTINUE 

0YYC(NJP2)-DyYC(NJPl) 

DO  I  J-2,NJP2 
JMl-J-i 

OYYS ( J) • . 5« (DYYC ( J) »OYYC  < JMl) ) 

8  CONTINUE 
DYYS(:)-DYYS(;') 

DO  2C  :-:,x:p? 

XCO-XSO-'DXXCO/E.O 

20  CONTINUE 

DO  21  J-1,NJP? 
YC{J)-YS(J)tDYYC(J)/2.0 

21  CONTINUE 


DO  9  X-4,NA 
ZS(K)-(K-3)  •!)/. 

9  CONTINUE 

DO  30  X-N3Pi,NK 
ZS(K)-ZS<NA>  t  <K-NB) ‘DZ 

30  CONTINUE 

DO  31  K=NAPl,.\ij 
ZS(K)-?:/2. 

31  CONTINUE 

ZS(1)=0.C 


00405100 

30405200 

00405300 

00405400 

00405500 

00405600 

00405700 

00405800 

00405900 

00406000 

00406100 

00406200 

00406300 

00406400 

00406500 

00406600 

00406700 

00406800 

00406900 

00407000 

00407100 

00407200 

00407300 

00407400 

00407300 

00407600 

00407700 

00407800 

00407900 

00408000 

00408100 

00408200 

00408300 

00408400 

00408500 

00408600 

00408700 

00408800 

00408900 

00409000 

00409100 

00409200 

00409300 

00409400 

00409500 

00409600 

00409700 

00409800 

00409900 

00410000 

0041O1C0 

00410200 

00410300 

00410400 

00410500 

00410600 

00410700 

00410800 

00410900 

00411000 

00411100 

00411200 

004113CO 

00411400 

00411500 

004116C0 

00411700 

00411600 
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O  O  f>  O  O  fl  <> 


» 


ZS(2)-C.C5 

ZS(3)-0.10 

C  ZS(NKP1)-ZS(NKM1) 

C  ZS(NK)-ZS(NKPl)-0.05 

C  ZS(NKM1)-ZS(NKP1)-0.1C 

C  ZS(NKP2)-ZS(NKP1)+0.C5 

ZS(NKP2)-ZS (NK) 

ZS(NKPl)-ZS(NKP2)-0.05 

ZS(NK)-ZS(NKP2)-0.10 


DO  10  K«1,NKP1 

IF  (X.6E.NA.AND.K.LT.NB)  GOTO  10 
KPl-K+1 

DZZC(K)-ZS(XP1)>ZS(K) 

10  CONTINUE 

DO  32  X-NA,NBM1 
DZZC(X)-2.8S4/(NB-NA) 

32  CONTINUE 

DZ2C(NXP2)>DZZC(NXP1) 

DO  11  X«2,NXP2 

C  IF  (X.EQ.NA.OR.X.EQ.NB)  GOTO  11 
XMl-X-i 

DZZS (X) - . S>  (DZZC  (X)  -^DZZC (XMl) ) 

11  CONTINUE 

DZZS(1)»DZZS(2) 

DO  22  X«1,NXP2 

IF  (X.GE.NA.AND.K.LT.NB)  GOTO  22 
ZC(X)«ZS(X)4^0ZZC(X)/2.0 
22  CONTINUE 

DO  33  X-NA,NBM1 
ZC(X)-PI/2. 

33  CONTINUE 

IF  <Ys<i)  .:,r.o.o)  Yso-o.c 

IF  (YCC)  .ir.0.0)  YC(l)--0.0 
PRINT  • 

PRINT  INPUT  COORDINATE  OF  THE  TANX  IN  THE  ORDER  OF  ' 

PRINT  :  XS  YS  ZS  XC  YC' , 

(  '  ZC  DXXS  DYYS  DZZS  DXXC 

(  ,  'DYYC  DZZC' 

00  12  :-:,x:<?2 

c  WRITE(6,::2)  :,XS(I),YS(I),ZS(I),XC(I),YC(I),ZC(I), 
c  t  DXXS(I),DYYS(I),DZZS(I),DXXC(I>,DYYC(:),OZZC(:) 

C  102  FORMAT(2X,:<, 12(2X,F8.5)) 

12  CONTINUE 

RETURN 

END 


FUNCTION  XL(:,J,K,M,N) 


WHEN  M  OR  N  =  1  THEN  SHIFT  CEL~  IN  THE  NEG  X  DIRECTION  ONE* 
HALF  CELL  (STAGGERED  CELL) 

WHEN  M  OR  S  »  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 
HALF  CELL  (STAGGERED  CELL) 

WHEN  M  OR  N  =  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 
HALF  CELL  (STAGGERED  CELL) 


G04119C0 

00412000 

00412100 

00412200 

00412300 

00412400 

00412500 

00412600 

00412700 

00412800 

00412900 

00413000 

00413100 

00413200 

00413300 

00413400 

00413500 

00413600 

00413700 

00413800 

00413900 

00414000 

00414100 

00414200 

00414300 

00414400 

00414500 

00414600 

00414700 

00414800 

00414900 

00415000 

00415100 

00415200 

00415300 

00415400 

00415500 

00415600 

00415700 

00415800 

00415900 

00416000 

00416100 

00416200 

00416300 

00416400 

00416500 

00416600 

004167C0 

00416800 

00416900 

00417000 

00417100 

00417200 

00417300 

00417400 

00417500 

00417600 

00417700 

00417800 

00417900 

00418000 

004181CC 

00418200 

00418300 

00418400 

00418500 

00418600 
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>.H£N  X 
WHEN  X 
WHEN  X 


N  »  1  THEN  SHIFT  CELL  IN  THE  NEC  X  DIRECTION  ONE* 
WHOLE  CELL  * 

N  -  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 
WHOLE  CELL  " 

N  »  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 
WHOLE  CELL 


COMMON/R4 /XC ( 93 ) ,  YC ( 93) ,  ZC ( 93 ) ,  XS (93) , YS ( 93 ) , ZS ( 93 ) , 

«  DXXC ( 93 ) , DYYC ( 93) , DZZC ( 93 ) , DXXS ( 93) , D YYS ( 93 ) , DZZS ( 93) 

Xl-XCC) 

X2-YC(J) 

X3-ZC(X) 

OXL-DXXC(I) 

:F(M.£G.N)  GOTO  100 

IFCM.EQ.l.OR.N.EQ.l)  Xl-XS(I) 

IF (M.EQ.l.OR.N.EQ.l)  OXL-OXXS(I) 

:F(M.EQ.2.0R.N.EQ.2)  X2-YS(J) 

:F(M.£Q.3.0R.N.EQ.3)  X3-ZS(K) 

GOTO  1000 

100  :f(m.£Q.i)  xi-xc(i-i) 

IF (M. £0.1)  DXL-OXXCd-l) 

:F(M.EQ.2)  X2-YC{J-1) 

:F(M.£C.3)  X3-ZC(K-1) 

1000  CONTINCE 

XL-X2*SIN(X3) *DXL 

RETURN 

END 


FUNCTION  YL(l,J,K,M,N) 


TOXJ®N/'R4/XC(93),YC(93),ZC(93),XS(93),YS(93),ZS(93), 
i  DXXC ( 93 ) , DYYC ( 93 ) , DZZC ( 93 ) , DXXS {93),DYYS(93),DZZS(93) 

X>XC(I) 

X2-YC(.') 

x3-zc(:<) 

DYL-DYYC(J) 

IF(M.E5.N)  GOTO  100 


:r{M.E3.2.0R.N.EQ.2)  X2-YS(J) 
:F(M.ES.2.0R.N,EQ.2)  OYL-DYYS(J) 
:r(M.ES.1.0R.N.£Q.l)  X1>XS(I) 
:r(M.E;.3.0R.N.EQ.3)  X3-ZS(K) 
GOTO  .wOO 

ICC  :r(X.E3.2)  X2=YC(J-1) 

IF (X. 13. 2)  DYL=DYYC(J-:) 

:.~(x.i3.:)  xi-xcd-i) 

:?{X.I3.3)  X3=ZC(X-1) 

1000  CONTINUE 

. Cl *DYL 

r*  ^  .  w  ^N 


004188CO 

00418900 

C04190C0 

00419100 

004192C0 

004193CC 

00419400 

004195CO 

00419600 

00419700 

00419800 

00419900 

00420000 

00420100 

00420200 

C04203CC 

00420400 

00420S00 

00420600 

00420700 

00420800 

00420900 

00421C0C 

00421100 

00421200 

00421300 

00421400 

00421500 

00421600 

00421700 

00421800 

00421900 

00422000 


i«  1 

•  i 

•  4 

•  •  •  • 

00422100 

w 

WHEN 

X  OR 

N 

m 

1 

THEM  SHIFT  CELL  IN  THE  NEG 

X 

DIRECTION 

ONE* 

00422200 

m 

W 

HALF  CELL  (STAGGERED  CELL) 

11 

00422300 

0* 

W 

WHEN 

X  OR 

N 

m 

2 

THEN  SHIFT  CELL  IN  THE  NEG 

Y 

DIRECTION 

ONE* 

00422400 

W 

HALF  CELL  (STAGGERED  CELL) 

t 

00422500 

V 

WHEN 

X  OR 

N 

X 

3 

THEN  SHIFT  CELL  IN  THE  NEG 

Z 

DIRECTION 

ONE* 

00422600 

w 

HALF  CELL  (STAGGERED  CELL) 

• 

00422700 

V 

WHEN 

X  ■ 

N 

X 

THEN  SHIFT  CELL  IN  THE  NEG 

X 

DIRECTION 

ONE* 

00422800 

V 

WHOLE  CELL 

• 

00422900 

w 

WHEN 

y  ■ 

N 

m 

2 

THEN  SHIFT  CELL  IN  THE  NEG 

Y 

DIRECTION 

ONE* 

00423000 

V 

WHOLE  CELL 

« 

00423100 

A 

V 

WHEN 

y  « 

N 

9 

3 

THEN  SHIFT  CELL  IN  THE  NEG 

Z 

DIRECTION 

ONE* 

00423200 

1 «  «  •  • 

•  • 

■  • 

•  • 

WHOLE  CELL 

*  V 

■ 

00423300 

00423400 

00423600 

00423'»00 

00423900 

00424100 

00424200 

00424300 

00424400 

00424500 

00424600 

00424700 

00424800 

00424900 

00425000 

00425100 

^ 

''  OSS 

00425400 
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END 


FUNCTION  2L<I,J,K,M,N) 


WHEN  M  OR  N  -  1  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 
HALF  CELL  (STAGGERED  CELL) 

WHEN  M  OR  N  -  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 
HALF  CELL  (STAGGERED  CELL)  * 

WHEN  M  OR  N  «  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 
HALF  CELL  (STAGGERED  CELL)  * 

WHEN  M  -  N  •  I  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 
WHOLE  CELL 

WHEN  M  -  N  -  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 
WHOLE  CELL  * 

WHEN  M  -  N  -  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 
WHOLE  CELL 


COMMON/R4 /XC ( 93 ) , YC ( 93 ) , ZC ( 93 ) , XS (93) , YS ( 93 ) , ZS ( 93 ) , 

«  DXXC(93),OYYC(93),DZZC(93),OXXS(93),OYYS(93),DZZS(93) 

C0MM0N/BL7/NI , N IP 1 , NIMl , N J, NJPl , N JMl , NK, NKP 1 ,  NKMl 
C  .NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 
Xl-XC(I) 

X2-YC(J) 

X3-ZC(K) 

DZL-OZZC(K) 

IF(M.EQ.N)  GOTO  100 

ir(M.EQ.2.0R.N.EQ.2)  K2-YS(J) 
ir{M.EQ.:.OR.N.EQ.l)  X1«XS(I) 

IF(M.EQ.3.0R.N.EQ.3)  GOTO  200 
GOTO  1000 

200  CONTINUE 

IF  (K.EQ.NA.OR.K.EQ.NB)  GOTO  2000 
X3-ZS(K) 

OZL-OZZS(K) ' 

GOTO  1000 

100  IF(M.EQ.3)  X3»ZC(K-i) 

IF(M.EQ.3)  OZL-DZZC(K-l) 

:F{M.EQ.2)  X2-YC(J-1) 

IF(M.EG.l)  X1«XC(I-:) 

1000  CONTINUE 
Z>X2*DZL 
SOTO  300 
2000  CONTINUE 

DZL1»DZZC(K-1) 

DZL2-DZZC (K) 

IF  (K.EC.NB)  DZL1°DZZC(K) 

IF  (K.EC.NB)  DZL2=DZZC(K-1) 

ZL«(X2*DZL10ZL2)/2. 

300  CONTINUE 
RETURN 
END 


FUNCTION  S:l:N(V1,V2,D1,D2) 

IF  (Dl. EC. 0.0. AND. 02. EC. 0.0)  Dl»0.1 
IF  (Dl. EC. 0.0. AND. 02. £Q. 0.0)  D2*0.1 

sil!n=(v:o2-v2*d:)  /  (oiroz) 

RETURN 

END 


00425500 

00425600 

00425700 

00425800 

00425900 

00426000 

00426100 

00426200 

00426300 

00426400 

00426500 

00426600 

00426700 

00426800 

00426900 

00427000 

00427100 

00427200 

00427300 

00427400 

00427500 

00427600 

00427700 

00427800 

00427900 

00428000 

00428100 

00428200 

00428300 

00428400 

00428500 

00428600 

00428700 

00428800 

00428900 

00429000 

00429100 

00429200 

00429300 

00429400 

00429500 

00429600 

00429700 

00429800 

00429900 

00430000 

00430100 

00430200 

00430300 

0043C4CC 

00430500 

00430600 

0043C7CO 

00430800 

00430900 

00431000 

00431100 

00431200 

00431300 

00431400 

00431500 

004316C0 

00431700 

00431800 

00431900 

00432000 

004321CC 

C04322C0 


00432300 

C  00432400 

FUNCTION  BILIN(V1,V2,01,D2,V3,V4,D3,D4,D5,D6)  00432500 

C  . . 00432600 

V12-(V.  '02+V2»D1)/(D1tD2)  00432700 

V34-(V3  04+V4»D3) / (D3-D4>  00432800 

BILIN-(V12*Do+V34*D5) / (D5+D6)  00432900 

END  00433000 

00433100 

00433200 

C  . . 00433300 

SUBROUTINE  STRESS  00433400 

C  00433500 

COMMON/R4/XC (93) , YC (93) , ZC (93) ,  XS (93) , YS (93) , ZS (93) ,  00433600 

«  OXXC ( 93 ) , DYYC ( 93 ) , OZZC ( 93 ) , DXXS (93) , OYYS ( 93 ) , DZZS ( 93 )  004  33700 

CCmMON/BLl/DX,DY,DZ,VOL,OTIME,VOLDT,THOT,TCOOL,PI,Q,QR  00433800 

C0MM0N/BL7/NI,NIP1,N:M1,NJ,NJP1,NJM1,NK,NKP1,NKM1  00433900 

6  , NIP2 , N JP2 , NKP2 , NA, NAP 1 , NAMl ,  NB,  NBP 1 ,  NBMl , XRUN , NCHIP , N JRA, NWRP  00434000 

COMM0N/BL20/SIG11 (22, 16,32) ,SIG12 (22, 16,32) ,SIG22 (22, 16,32)  00434100 

«  ,SIG13(22,:6,32),S1G23(22,16,32),SIG33(22,16,32)  00434200 

COMHON/BL22/ICHPB (10) ,NCHPI (10) ,  JCHPB(IO) ,NCHPJ(10) ,KCHPB (10) ,  00434300 

C  NCHPK(IO) ,TCHP(10),CPS(10),CONS(10),WPAN(10)  00434400 

COMMON/BL32/  T(22,16,32),R(22,16,32),P(22,16,32)  00434500 

6  ,C(22,16,32),U(22,16,32),V(22,16,32),M(22,16,32)  00434600 

COMMON/BL37/  VIS (22,16, 32) , COND (22, 16,32) ,NOD (22, 16,32) ,RWALL (579)00434700 
4  ,CPM(22,16,32),HS2(3,2),NHSZ(22,16,32),RESORM(93)  00434800 


00434900 

00435000 

00435100 

00435200 

00435300 

00435400 

00435500 

00435600 

00435700 

00435800 

00435900 

00436000 

00436100 

00436200 

C0436300 

00436400 

00436500 

00436600 


CENTRAL  lINGTH  OF  THE  SCALAR  CONTROL  VOLUME 

00436700 

00436800 

3x?i-xL(:?:, 0,0 

0C4369CC 

OXI  -XLC  ,-,K,C,0 

00437000 

DXMl-XL(:x:,w,K,0,0) 

00437100 

00437200 

DYP1-YL(I,J?1,K,0,C) 

00437300 

DYJ  -YLC,-’  ,f(,0,C) 

00437400 

DYMl-YLC,  JM1,K,0,0) 

00437500 

00437600 

DZP1«ZL(:,J,KP1,C,0 

00437700 

OZK  -ZL(I,J,K  0,0) 

00437800 

DZMl-ZLC,  J,i<Ml,0,0) 

00437900 

00438000 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

00438100 

00438200 

DXN-XLC,  J?:.K,C,2) 

00438300 

0XS-XL(:,J  ,K.0,2) 

00438400 

OXF-XLC,  J,K?1,0,3) 

00438500 

DXB»XL(:,J,K  ,C,3) 

00438600 

00438700 

DYF-YLC,  J,X?:,:,3) 

00438800 

OYB-YL{:,J,K  ,0,3) 

00438900 

OYE-YLC?:,  J,<<,0,:) 

00439000 

DO  100  K-2,NK 

KP2-K*2 

KPl-K+1 

KMl-K-1 

KM2-K-2 

DO  100  J>2,NJ 

JP2-J+2 

JPl-J+1 

JMl-J-1 

JM2-J-2 

DO  100  I-2,NI 

IP2-1-2 

IPl-I-l 

IMl-I-1 

IM2-I-2 


4 


« 


4 
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SYW-YLC  ,J,K,0,1) 

DZE»ZL{:?1,J,K,0,1) 

3ZW-Z1(I  ,J,K,0,1) 

3ZN>>ZL(I,JP1,K,0,2) 

DZS-ZL<:,J  ,K,0,2) 

•••  CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

DXEE-XL(IP2,J,K,0,1) 

DXE  -XL(IPlrJ,X,0,l) 

DXH  «XL(I  ,J,K,0a) 

DXMH-XL(IMUJ,K,0,1) 

DyNN-YL(I,JP2,K,0,2) 

DYN  -YL{1,JP1,K,0,2) 

DYS  -YL(I,J  ,K,0,2) 

DYSS-YL(1,JM1,K,0,2) 

DZFF-ZL(I,J,XP2,0,3) 

DZF  mini, j,Kn, 0,3) 

DZB  ,0,3) 

DZBB«ZL(:,J,KM1,0,3) 

UBAR-0 . 5* (0 ( IPl , J, K) +U ( T„  J, K) ) 
VBAR-0.5MV(I,JP1,K)+V(I,J,K)) 
WBAR-0.SMH(I,J,KP1)<»'N(I,J,K)) 

3XY-DXI«DYJ 

DYZ«DYJ»DZK 

OZX-DZX*DXI 

SIG11(:,J,K)-2.*V1S(I,J,K)M(U(IP1,J,K)-U(I,J,K))/DXI 
«  ♦VBARMDXN-DXS)/OXY 

i  •'HBARMDXF-DXB)/DZX) 

S!622<:,J,K)-2.*VIS(I,J,K)M(V(I,JP1,K)-V(I,J,K))/DYJ 
4  ♦WBARMDYF-DYB)/OYZ 

4  *UEARMDYE-DYW)/DXY) 

S!G33(:,C,K>-2.»VTS(I,J,K)*((W(I,J,KPl)-W(I,J,K))/DZK 
4  -'UBARMOZE-DZW)/OZX 

4  -VBAR*(DZN-DZS)/OYZ) 

100  CONTINUE 

CO  2CC  :<-2,NKPl 
KP2-K-2 

KM>X-: 

KM2-K-2 

CO  2CC  J-2,NJP1 

JP2-J-2 

JPl-J-1 

JMl-J-l 

JK2»J-2 

CO  2CC  :*2,n:pi 
:?2-i-2 

ixi-:-: 

:x2-:-2 


FOLLOWING  OX,  SY,  DZ,  ARE  BASED  CN  THE  LOCAL  CONTROL 
VOLUME  FOR  SI 012 

IF  (J.EQ.2)  GOTO  3C0 
CXN-XLC,-*  ,K,  1,0 
CXS»XL(:,  JM1,K,  1,0 


CC4391C0 

C04392C0 

C0439300 

CU439400 

C0439S00 

00439600 

00439700 

00439800 

00439900 

00440000 

00440100 

00440200 

00440300 

00440400 

0O44OS0O 

00440600 

00440700 

00440800 

00440900 

00441000 

00441100 

00441200 

00441300 

00441400 

30441500 

00441600 

00441730 

00441800 

00441900 

00442000 

00442100 

00442200 

00442300 

00442400 

00442500 

00442600 

00442700 

00442800 

00442900 

00443000 

00443100 

03443200 

00443300 

00443400 

00443500 

00443600 

00443700 

00443800 

00443900 

00444000 

.WW 

00444200 

00444300 

03444400 

00444500 

00444600 

00444700 

00444800 

00444900 

00445000 

00445100 

00445200 

00445300 

00445400 

00445500 

00445600 

00445700 

004458C0 
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3YE-YL(:  ,J,K,2,0) 
3yW«YL(IMl,J,K,2,0) 
DXI-XL(I  ,J,K,1,2) 
DYJ«YL{I  ,J,K,2,1) 

DYN-YL(I,J  ,K,1,0) 
DYS-YL(I,JM1,K,1,0) 
3XE-XL(I  ,J,K,2,0) 
DXN«XL(IM1,J,K,2,0) 


UBAR»S:LIN ( U ( I , J, K) , U ( I , JMl , K> , DYN, DYS) 

VBAR-S:LIN ( V ( I , J, K) , V ( IMl , J, K) , DXE, OXW) 

VIS12-BILIN(VIS(1  ,J,K),VIS<I  , JM1,K) ,DYK,DYS, 

«  VlS(IMl,J,K),VIS(IMI,JMl,K)rOYN,DYS,  DXE,DXW) 

S1G12  < : , J, K) -  VIS12* { (V (I, J, K) -V ( IMl , J, K) ) /DXI 

•  -V»AR* (DYE-OY«> / (DXI*DYJ) ) 

S1612(I,J,K)-8IG12(l,J,K)WXfl2*((0(I,J,X)>U(I,JMl,K))/DYJ 
C  •UBAK* (OXN-DXS) / (OXI*OYJ) ) 

300  CONTINUE 

C  *•••  FOLLOMING  DX,  DY,  02,  ARE  BASED  ON  THE  LOCAL  CONTROL 
C  VOLUME  FOR  SIG13 

0XF-XL(I,J,K  ,1,0) 

OXB-XL(:,w*,XMl,l,0) 

DZE>2L(I  ,J,K,3,0) 

OZN-ZL(IM1,J,K,3,0) 

0X1-XL(I  ,J,K,1,3) 

3ZK-ZL(I  ,J,K,3,1) 

0ZF-ZL(:,J,K  ,1,0) 

OZB-ZL(I,J,KM1,1,0) 

DXE«XL(1  ,J,K,3,0) 

oxh«xl(:mi,j,k,3,0) 

IF  (OZF.EO.O.O.OR.DZB.EQ.O.O.OR.DZE.EQ.O.C.OR.DZH.EO.O.C) 

«  WRITE  (6,*)  I,J,K,  DZF,OZB,OZE,DZN 
•JBAR-SILIN  (U  ( I ,  j,  K)  ,  U  ( I ,  j,  KMl ) ,  DZF,  DZB) 

WBAR«s:l:K(W<I, J,X),W(IH1,J,K),DXE,DXW) 

VIS13-BIL:X(VIS(I  ,J,K),VIS(I  ,J,KMl),DZr,DZB, 
i  VISdMl, J,K),VIS(IN1,J,KMI),0ZF,DZ3,  3XE,3XW) 

3:gi3(:,  j,x)-  VIS13*  ((W(i,j,x)“W(  IMl,  :,:<)) /3x: 

4  -WBAR»(DZE-DZW)/(DXI*DZX) ) 

3:G13(:,J,K)-S:G13(:,  J,K)'*'VIS13*((U(I,J,K)-U(I,  J,XM1))/3ZK 
4  -UBAR* (OXF-OXB) / (DXI ‘OZK) ) 


C  ....  following  DX,  DY,  DZ,  are  based  ON  THE  LOCAL  CONTROL 
C  VOLUME  rOR  SIG23 

3ZN-ZL(:,J  ,K,3,C) 

DZS-ZLC,  jy.l,K,3,0) 

DYF-YL(:,J,;-<  ,2,0) 

DYB-YLC,  J,KM1,2,0) 

DZK-ZLC,  J,K,3,2) 

DYJ-YL(;,J,X,2,3) 


DYN-Y1(:,J  ,:<,3,C) 

DYS-YLC,  JX1,X,3,C) 

DZF»ZL(I,J,X  ,2,0) 

3ZB»ZL(:,J,XM1,2,0) 

wbar-s:i:n ( w ( i , j, x) , w ( i , jmi ,  io  , dyn, oys) 
v3ar-s:l:n  (  v  < : ,  j,  x)  ,  v  (  i  ,  j,  xmi  > ,  ozf,  dzb) 


00445900 

00446000 

00446100 

00446200 

00446300 

00446400 

00446500 

00446600 

00446700 

00446800 

00446900 

00447000 

00447100 

00447200 

00447300 

00447400 

00447500 

00447600 

00447700 

00447800 

00447900 

00448000 

00448100 

00448200 

00448300 

00448400 

00448500 

00448600 

00448700 

00448800 

00448900 

00449000 

00449100 

00449200 

00449300 

00449400 

00449500 

00449600 

00449700 

00449800 

00449900 

00450000 

00450100 

00450200 

00450300 

00450400 

00450500 

00450600 

A  ^4  ^ 

00450800 

00450900 

00451000 

00451100 

00451200 

00451300 

00451400 

00451500 

00451600 

00451700 

00451800 

00451900 

:0452f'C0 

00452100 

00452200 

C04523CC 

00452400 

00452500 

00452600 


4 


4 


134 


V:S23-3ILIN(VIS(I  , J,K) ,VIS(I, JM1,K  ),DyN,DYS, 

£  V:S(I,J,XM1),VIS(I,JM1,KM1),DYN,DYS,  DZF,DZB) 

SIG23(:,J,K)-  VIS23*({V(I,J,K)-V(I,J,KM1))/DZK 

C  -VBAR* (DYF-DYB) / <DZK*DYJ) ) 

S:G23(:,J,K)-SIG23(1,J,K)+VIS23*((W(I,J,K)“W(I,JM1,K))/DYJ 
(  -WBAR*  <DZN-D2S) / (DZK*DYJ) > 


200  CONTIN'Ji 

DO  lie  :-l,NIPl 
DO  110  >1,NJP1 

:  WRITE  (6,998)  I. J,SIG11 (I, J,5) ,S1G12 (I, J, 5) ,SIG13 (I, J,5) , 

;  £  S1622(I,J,S),SIG23(I,J,5),SIG33(I,J,5) 

998  FORMAT  (2X, 14, IX, I4,6(1X,E11.4) ) 

110  CONTINUE 
RETURN 
END 


00452700 

00452800 

00452900 

00453000 

00453100 

00453200 

00453300 

00453400 

00453500 

00453600 

00453700 

00453800 

00453900 

00454000 

00454100 

00454200 

00454300 

00454400 

00454500 

00454600 

00454700 

00454800 

“00454900 


SUBROUTINE  CALQ(LL)  00455000 

. . ...-<••••..•.•••••••.•.••••.••••••>••••••>••••••00455100 

COMNON/BLl /DX, DY, DZ , VOL,  DTIME, VOLDT, THOT, TCOOL, PI,Q,QR  00455200 

C0MM0N/3L7/NI,N:p1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NXM1  00455210 

COMMON/aL12/  NWRITE,NTAPE,NTMAXO,NTREAL,TIME,SORSUM,ITER  00455300 

COMMON/BL14/HCOEF,T:Nr,CNT,ABTURB,BTURB.VISL,VISMAX,QCORRT,PMl,PM20045S400 
COMMON/aL16/  CONSTl,CONST2, CON8T3,CONST4, CONST6,NT, UO, H,UGRT, BUOY, 00455500 
£  C?0,?RT, CONDO, VISO,RHOO, HR,  TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR00455600 

COMMON/aL34/  HEIGHT(22, 16, 32) ,REQ(22, 16, 32) ,  00455700 

£  SMP(22,16,32),SMPP<22,16,32),PP{22,16,32),  00455800 

£  DU(22,16, 32), DV(22, 16,32), DH(22,16,32)  00455900 

C0MH0N/aL37/  VIS<22, 16,32) ,CONO (22, 16,32) , NOD (22, 16,32) ,RWALL (579)00455910 


£  .CPM(22,16,32),HSZ(3,2),NHSZ(22,16,32),RESORM(93)  00455920 

COMMON/aL39/ALEW,PC'JRVE,CONSRA,PCURMl,PSOUTH,QCORR,PERROR  00456000 

00456100 

•  IX  MANY  OF  THE  FOLLOWING  LINES  A  TEMPORARY  CORRECTION  FOR  00456200 

ADJUSTING  QQ  TO  AGREE  WITH  THE  PRESSURE  HAS  BEEN  APPLIED.  00456300 

00456400 

XT:ME-T:XE*H/U0  00456500 

00156510 

VOLT-0. 0  00456520 

00  113  :-2,N:  00456530 

00  113  -*-2,NJ  00456340 

00  113  :<»16,17  •  00456550 

IF  (XHSZC,  J.X)  .£5.0)  GOTO  113  00456560 

OXI  -XIC  ,J,K,C,0)  00456370 

OYJ  -YL(;,J  ,K,0,0)  00456380 

OZK  -Z1(:,J,X  ,0,0)  00456590 

VOL«DX:*OYJ*DZK*H*H«K  00456591 

VOLT-VCLT-rVOL  00456592 

113  CONTINUE  00456593 

00456594 

QRVOL-C.  00456595 

DO  70  >561,579  00456396 

QRVOL-QRVOL+RWALLd) •l./12.*0.2‘PI  00456597 

70  CONTINUE  00456398 

00456599 

Qa-QRVCL/VOLT*'J0*CPC*R.4O0*TA/H  00456600 

00456700 

IF  (XTIME.IT.23.1)  THEN  00456800 

?CUaVE-9.  /R9522E-3*XT:XE»*2-2.38831CE-6*XT:XE»*3-  00456900 

£  REQ(10,9,:6)  00457000 

:?DT  =9 ,789522E-5«XTIME*2-2.38831CE-6»XTIXZ»*2*3  00457100 

ELSE  00457200 

?CURVE=:.0052+.fi:264E-3*XTIME-.22604E-5*XTIME**2<.27262E-8*XTIME* *004 57300 
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(  3-. 115621E-il-XTIME**4+REQ(10, 9, 16) 

DPDT-.8i264E-3-.22604E-5*XTIME«2+.27262E-8*XTIME** 

C  2*3.0>.i:5621E-ll*XTIME**3*4 

ENDIF 

IF  (  LL  .EQ.  1)  THEN 

QQ»1.0E8*DPDT 

Q-QQ-3.4134/60./60. 

65  CONTINUE 

Q-Q«QCORRT-QR 

ELSE 

THIS  USES  A  CURVE  FIT  THROUGH  THE  BURNRATE  DATA  GIVEN  BY  NRL 
QCORRT«0.0 
QCORR-0.0 
iresT  «  0 

BURNRX-  5.4576748  +0. 18ei5346»XTIME-.20153996E-03*XTIME*»2 
BURNR2-  -1.3116787  +  ,33158595»XTIME-.7342952E-03*XTIME**2 
C  +.50945510E-06»XTIME**3 

IF  (XTIME  .LT.  100)  THEM 
BURNR-  BURNR2  +  1 .3117-.013117*XTIME 
ELSE 

BURNR  -  BURNR2 
ENDIF 

IF(XTIME  .LE.  300)  GO  TO  60 
IF(BURNR2  .IT.  BURNED  THEN 

BURNR  •  (BURNRl  ^  BURNR2)  /  2 
GO  TO  60 

ELSE 

IF  (  XTIME  .LT.  600.0)  GO  TO  60 
IF  (ITEST  .EQ.  0)  THEN 
BURNR3  •  BURNR2 
ITEST  •  1 
ENDIF 

BURNR  >  BURNR3 
ENDIF 

60  Q  -  BURNR*2. 2046*9612. /3600.-QR 
:  THIS  GIVES  Q  IN  BTU/SEC 

ENDIF 

Q«59.313+0.7195*XTIME-0.1139E-2*XTIME**2-0.3367E-5*XTIME**3 

Q»Q*3412/3600 

RETURN 

END 


00457400 

00457500 

00457600 

00457700 

00457710 

00457800 

00457900 

00458000 

00458100 

00458200 

00458300 

00458400 

00458410 

00458420 

00458500 

00458600 

00458700 

00458800 

00458900 

00459000 

00459100 

00459200 

00459300 

00459400 

00459500 

00459600 

00459700 

30459800 

00459900 

00460000 

00460100 

00460200 

00460300 

00460400 

00460500 

00460600 

30460700 

00460800 

30460900 

30460910 

00460920 

00461000 

004611C0 

30461200 

00461300 

00461400 

00461500 


SUBROUTINE  RADHT (T4WALL, VFMXC)  551^:1x2 


C0MM0N/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1  -0461900 

(  ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP  -0462000 
C0MM0N/BL16/  CONSTl , CONST2, CONST3, C0NST4, CONST6, NT, UO , H, UGRT, BUOY, 00462100 
(  CP0,PRT,  CONDO,  VISO.RHOO,  HR,  TR,TA,DTSMP,TWRITE,TTA?E,TMAX,GC,RA:R00462200 
COMMON/BL32/  T (22, 16, 32) , R(22, 16, 32) , ? (22, 16, 32)  -04623C0 

C  ,C(22,I6,32),U(22,16,32),V(22,:6,32),W(22,I6,32) 

COMMON/BL37/  VIS (22, 16,  32) , COND <22, 16, 32) , NOD  (22, 16,32), RWALL (579) 00462300 
&  ,CPM(22,:6,32),HSZ(3,2),NHSZ(22,:6,32),RESOR.M(93)  “SI!?®®? 

COMMON/3L39/ALEW,PCURVE,CONSRA,PCURM1,?SOUTH,QCORR,?ERROR  -04627-- 


DIMENSION  VFMXC (579, 579) , T4WALL (579) 
DO  4010  X=3,NKM1 
DO  4010  1=2, NI 
i:*(K-3)  •  (N:-1)  *>1 


30462700 

304628CC 

30462900 

30463COO 

00463100 

30463203 

304633CC 


T4WALL (ID -C0NSRA*T ( I ,  N JRA,  K) *T ( I ,  N JRA, K) ‘T ( I , N JRA, X) *T ( I ,  N JRA,  K)  00463400 


OONTINUE 


30463500 

30463600 
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C0463700 
00463800 
00463900 
00464000 
00464100 
00464200 
00464300 
00464400 
00464500 
00464600 
00464700 
00464800 
00464900 
00465000 
00465100 
00465200 
00465300 
00465400 
00465500 
00465600 
00465700 
00465800 
00465900 
00466000 

_ 00466100 

li*  *  *  *TmPtt5  w*  ••  ••  ••^nnrTit  •*  •**••••*••*••*••  *7nn^TTQQ^^f  200 

SUBROUTINE  GLOBE  00466300 

•*•••00466400 


C  RADIATION  FROM  THE  FIRE  TC  THE  WALL 

DO  4011  J-3,9 
JJ«561»9-J 

AVT-0.25*(T(16,J,16)+T(17,J,16)+T{16,J,17)+T(17,J,17)) 
T4WALLJ JJ) ■CONSRA*AVT*AVT*AVT*AVT 

4011  CONTINUE 
C 

DO  4012  J-3,14 
JJ-568+J-3 

AVT»0.25*(T(6,J,16)tT{7,J,16)+T<6,J,17)+T(7,J,17)) 
T4WALL ( JJ) -C0NSRA*AVT*AVT*AVT*AVT 

4012  CONTINUE 
C 

DO  4020  1-1,579 
RNALL(I)-0.0 
DO  4020  J-1,579 

RNAU.  ( I )  -RWALL  ( I )  *VFMXC  ( I ,  J)  *T4NALL  ( J) 

4020  CONTINUE 
RETURN 
END 


THIS  SUBROUTINE  CALCULATES  THE  GLOBAL  PRESSURE  CORRECTION, 
WHEREBY  THE  PRESSURE  MATRIX  IS  UPDATED. 


VARIABLES 


SEO  ARE: 
SUMT 
SUNPT 
SUMPET 
UGRT 
PCORR 


•00466500 
•00466600 
•00466700 

SUM  OF  TEMPERATURES  *00466800 

SUM  OF  PRESSURE  OVER  TEMPERATURE  *00466900 

SUM  OF  EQUILIBRIUM  PRESSURE  OVER  TEMP *004 67000 

CON8TWI7.  *00467100 

PRESSURE  CORRECTION  *00467200 

00467300 

COMMON/aL7/NI,NIPl,N:Ml,NJ,NJPl,NJMl,NK,NKPl,NKMl  00467400 

i  ,NIP2,NJ?2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBH1,KRUN,NCHIP,NJRA,NWRP  30467500 
COHMON/BL16/  CONSTl , CONST2, CONST3,CONST4, CONST6,NT, UO, H, UGRT, BUOY, 00467600 
«  CP0,PRT, CONDO, VIS0,RKO0, HR,  TR,TA,DTEMP,THRITE,TTAPE,THAX,GC,RAIR00467700 
COMMON/aL32/  T(22, 16, 32) ,R(22, 16,32) ,P(22, 16, 32)  00467800 

(  ,C(22,16,32),U(22,16,32),V(22,16,32),W(22,16,32)  00467900 

C(»eiON/3L34/  HEIGHT(22,16,32),REQ(22,16,32),  00468000 

t  SMP(22, 16,32), SMPP(22, 16,32), PP(22, 16, 32),  3046810C 

(  0U(22,:6,32),DV(22,16,32),0W(22,16,32)  304682CC 

COMNON/3L37/  VtS (22, 16, 32) , CCNO (22, 16,32) ,NOD (22, 16, 32) , RWALL (579) 004683CC 


,C?M(22, :6,32),HSZ(3,2),NKSZ(22,16,32>,RES0RM(93) 

SUMT-0. 

SUMPT-C . 

SUNPET-0 . 

DO  370  1-2, NI 
DO  370  J-2,XJ 
DO  370  K-2,NK 

IF  (NOD(:,J,K) .EQ.l)  GOTO  370 
DXI-XL(:,J,K, 0,0,0) 

DYJ-YL(:,J,X,  0,0,0) 

DZK-ZLC,  J,K,0,0,0) 

VOL-DX:*DYJ*DZK 
SUMT-SUMT-1 . /T ( I , J, K) *VOL 
SUMPT-S'JMPT*P  ( I ,  J,  K)  /T  ( I,  J,  K)  •VOL 
SUMPET-S-JXPETtREQ  ( I ,  j,  K)  •  ( : . / 1 . 0-1 .  /T  (I ,  j,  K) )  ‘VOL 
370  CONTINUE 

SUMPET-SUMPET/'JGRT 
PCORR- (SUMPET-SUMPT) /SuMT 
PCORRN-PCORR 


20468400 

00468500 

00468600 

CS4S87C0 

00468800 

00468900 

00469000 

00469100 

30469200 

00469300 

0046940C 

00469500 

00469600 

00469700 

00469800 

00469900 

00470000 

00470100 

00470200 

00470300 

00470400 
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DO  371  :.i,NIPl 
DC  371  J*i,NJPl 
DO  371  X-1,NKP1 
?(I,J,:<)-P(I,J,K)+PCORRN 
371  CONTINUE 

RETURN 

END 


0047C500 

oo«7cp:o 

C047C7CC 

0047C8C0 

0047C9C0 

Art  rtrtrt 

C04711C0 

00471200 

00471300 

00471400 

00471500 

00471600 


SUBROUTINE  SOLCON 


. . . . •*•••— 00471700 

00471800 

.....QQ47-9QQ 

C0t«40N/3L7/NI,NlPl,NIMl,NJ,NJPl,NJMl,NK,NKPl,NKMl  00472000 

«  , N IP2 , N JP2 , NKP2 , NA, NAP 1 , NAMl , NB, NBP 1 , NBMl , KRUN , NCHIP , N JRA, NWRP  00472100 

COMHON/3112/  NNRIT£,NTAPE,NTMAX0,NTREALfTIME,SORSUM,lTER  00472200 

COMMON/3L16/  CONSTl, CONST2,CONST3,CONST4,CONST6, NT, UO.  H,UCRT, BUOY, 00472300 
6  CP0,?RT, CONDO, VIS0,RHO0, HR, TR,TA,DTEMP,TVW1TE,TTAPE,TMAX,GC,RAIR004724C0 
Cn4HON/3!,22/lCHPB(10)  ,NCHPI (10) , JCHPB(IO) ,NCHPJ(10) ,KCHPB(10) ,  00472500 

«  NCHPK(10),TCHP(10),CPS(10),CONS(10),WFAN(10)  00472600 

CC»1NON/3L37/  VIS (22, 16,32), CONO (22, 16,32) ,NOD (22, 16,32), RWALL (579) 00472700 


405 

402 


,CPM(22,16,32),HSZ(3,2),NHSZ(22,16,32),RESORM(»3) 

DO  402  N-1,NCHIP 
:3-ICK?3(N) 

:Z-IB->-NCHPI(N)-l 
Ja-JCK?3(N) 

J£«JB<rKCHPJ(N)-l 
KB«KCK?3(N) 

xs«kb<^n:hpk(N)-i 

DO  405  >IB,IE>1 
DO  405  >JB,JE’'l 
DO  405  K«KB,KE«1 
CDNO  C,  X)  -CONDO 'CONS  (N) 

C?M(I,.',X)-CPS(N) 

N00(:,U,X)-1 

:?  (J.E3.NJ)  CONO(I,NJP1,K)-COND(I,NJ,X) 

:?  (I.ES.2)  COND(1,J,K)-CONO(2,J,X) 

Zs  (I.ES.NI)  CONO(NIP1,J,X)-COND(NI,J,K) 

:F  C.ED.Z.AND.J.EQ.NJ)  CONDil,J*l,X)-COND(2,J,X) 

IF  C.ED.Nl.AND.J.EQ.NJ)  COND(NIPl, Jrl,R)-COND(NI, J,X) 

IF  (J.ID.NJ)  C?M(I,NJP1,X)-CPM(I,NJ,X) 

IF  (I.E;.2)  C?M(1, J,K)-CPM(2,J,X) 

:f  c.eu.n:)  c?x(NiPi, j,k)-cpm(ni,j,k) 

:f  (:.e;.2.and.j.eq.nj)  cPM(i,jTi,x)’-cPM(2, j,k) 

:F  C.El.NI.AND.J.EQ.XJ)  CPM(NIP1, v>l,X)-CPM(NI, J, K) 
CONTINUE 
CONTINUE 
RETURN 
END 


00472800 

00472900 

00473000 

00473100 

00473200 

00473300 

00473400 

00473500 

00473600 

00473700 

00473800 

00473900 

00474000 

00474100 

00474200 

00474300 

00474400 

00474500 

00474600 

00474700 

00474800 

00474900 

ArtJ^S Artrt 
WW*I  /  wWWW 

*?S  •  '“A 

A*  •yx5Art 
rtrt/^S-rtA 

00475400 

00475500 

00475600 

Art/ TeTrtrt 

/3  /ww 

00475900 

00475900 


aUBRCUTlNE  PTRACK 


00476101 
'•”0047620: 
?M1,?X2CC4763:C 
,  BUOY, 00476401 
gc,ra:roo47€5:: 
00476601 
00476701 
00476801 


CC>0®X/s114/HCOEF,T:NF,CNT,ABTURB,BTURB,VISL,VISMAX,GCORRT. 
C0)O«)N/S116/  CONSTl, CONST2,CONST3,CONST4, C0NST6, NT, UO, H, UGR 
t  CPO , ??-,  CONDO ,  Vise,  RKOC ,  KR,  TR, TA, DTEMP, TWRITE , TTAPE , UMAX, 
COMMON/=132/  T(22, 16, 32) , R(22, 16, 32) ,P (22, 16, 32) 
i  ,0(22, 16, 32), 0(22, 16, 32), V (22, 16, 32) ,W (22, 16, 32) 

COMMON/5134/  HEIGHT (22, 16, 32) ,REQ(22, 16,32) , 

«  3MP (22, 16,  32) ,  SMPP (22,  16, 32) , P? (22,16, 32) , 

&  :U(22,  16,32)  ,DV(22,  16,  32),DW(22,  16,32) 

COMMON/ 3139/ALEW,  PCUSVE, CONSRA, PCURMl,?SOUTK, QCOSR, PERROR 


00477001 

00477::: 


4 


4 


« 
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CC  *•  THE  FOLLOWING  PRESSURE  TEST  IS  A  TEMPORARY  MEASURE  TO  MODIFY  THE  00477300 
CC  HEAT  INPUT  TO  FORCE  THE  CALCULATED  PRESSURE  TO  AGREE  WITH  THE  00477400 

CC  EXPERIMENTAL  PRESSURE.  IT  WILL  BE  USED  UNTIL  ACCURATE  HEAT  INPUT  00477500 

CC  ••  IS  RECEIVED.  00477600 

CC  00477700 

PSOUTH-?'10,9,16)*CONST1+REQ(10,9,16)  00477800 

PERROR- (PCURVE-PSOUTH) /PCURVE  00477900 

QCORR»i . CrPERROR- (PSOUTH-PMl ) /PCURVE  00478000 

QCORR-i  .O-fPERROR-  (PSOUTH-PMl)  /PCURVE+  (PSOUTH-PMl)  /  (PCURVE-PCURMl)  •00478100 
i  (PCURVE-PMl) /PCURVE  00478200 

QCORRT»QCORRT*QCORR  00478300 

PCURMl-FC'JRVE  00478400 

PMl-PSOUTH  00478500 

C  00478600 

RETURN  00478700 

END  00478800 

00478900 

00479000 

00479100 

C  _  _  _  _  _  00479200 

••*  00479300 

SUBROUTINE  TCP  00479400 

*•*  ..•..*•••00479500 

00479600 

. . .•.•••*.•..•••••••..••••..•..........**..•.....••00479700 

*  THIS  SUBROUTINE  CALCULATES  THE  TEMPERATURE  AT  THE  TERMOCOUPLE  *00479800 

•  POSITIONS.  *00479900 

. . ••.••.•..•••.....•...................00480000 

COMMON/R4/XC(93),YC(93),ZC(93),XS(93),YS(93),ZS(93),  00480100 

«  DXXC ( 93 ) , DYYC ( 93 ) , DZZC ( 93 ) , DXXS  ( 93 ) , DYYS (93),DZZS(93)  00480200 

C0MM0N/BL16/  CONSTl,CONST2,CONST3,CONST4,CONST6, NT, U0,H,UGRT, BUOY, 00480300 
«  CP0,PRT,  CONDO, VISO,RHOO, HR, TR,TA,DTEMP,TWR1TE,TTA?E,TMAX,CC,RAIR00480400 
COMMON/BL32/  T(22, 16, 32) ,  R(22, 16,32) ,P(22, 16, 32)  00480500 

S  ,C(22,16,32),U(22,16,32),V(22,16,32),W(22,16,32)  00480600 

COMMON/aL38/NTHCO,CX(12),CY(12),CZ(12),NTH(12,3),TCOUP(12)  00480700 

00480800 

00480900 

DO  5100  N-l,NTIICO  00481000 

II-NTH(N,1)  00481100 

JJ-NTH(N,2)  0048)200 

KK<NTH(N,3)  00481300 

VOL-ABS((XC(I ;n)-XC(II))*(YC(JJ+l)-YC(JJ)) *(ZC(KK-;)-ZC(KK)>)  00481400 

TCOUP(N)-0.  00481500 

DO  5101  :>II, :i 00481600 

oo48i7co 

DO  5101  00481800 

"w  w  w  T  *  — k-  *  00481900 

DO  5101  X-KX,KK^1  00482000 

KXK-KK-XX.i-K  00482100 

WVOL-ABS ( (XC ( : ) -CX (N) ) » (YC ( J) -CY (N) ) * (ZC (K) -CZ (N) ) ) /VOL  00482200 

TCOOP(N)-TCOUP(N)+WVOL*T(HI,  JJJ,KKK)  00482300 

5101  CONTINUE  00482400 

TC00P(N)»TC0UP(N) *TR-273.18  00482500 

00482600 

5100  CONTINUE  00482700 

00482800 

RETURN  00482900 

END  00483000 

00483100 

00483200 

00483300 

C  _ 00483400 

...  00403500 

SUBROUTINE  OUT(NN)  00483600 

...  ..................................................................00483700 

COMMON/ 31 l/DX,  DY,  DZ,  VOL,  DTIME, VOLDT, THOT, TCOOL, PI , S,  QR  00483800 

C0MM0N/317/NI,NrPl,NIMl,NJ,NJPl,NJMl,NK,NKPl,NKMl  00483900 

t  ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,N3M1,XRUN,NCHIP,NJRA,NWRP  00484000 
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O  f>  o  o  o  o  o  o  o  o 


c 


c 


c 


C0MM0N/BL12/  NWRITE, STAPE,NTMAXO,NTREAL, TIME, SORSUM, ITER  00484100 

CM4MON/BL14 /HCOEF, TINF, CNT, ABTURB, BTORB, VISL, VISMAX, QCORRT, PMl , PM2004  84200 
COMMON/BL16/  CONSTl , C0NST2, C0NST3, CONST4 , CONST6, NT, UO, H, OGRT, BUOY, 00484300 
CP0,PRT, CONDO, VISO,RHOO,HR,TR,TA, DTEMP,TWRITE,TTAPE,TMAX, GC,RAIR00484400 
CCX4MON/BL32/  T(22,16,32),R(22,16,32),P(22,16,32)  00484500 

,C(22, 16,32) ,U(22, 16,32) ,V(22, 16,32) ,W(22, 16,32)  00484600 

CC»MON/BL34/  HEIGHT (22, 16, 32) ,REQ (22, 16,32) ,  00484700 

SMP(22,16,32),SMPP(22,16,32),PP(22,16,32),  00434800 

D0(22,16,32),DV(22,16,32),0W(22,16,32)  00484900 

COMMON/BL36/AP (22, 16, 32) ,AE (22, 16,32)  ,AW(22, 16,32) , AN (22, 16,32) ,  00484910 

AS (22, 16, 32) , AF (22, 16, 32)  ,AB(22, 16, 32) ,  00484920 

SP(22,16,32),S(;(22,16,32),RI(22,16,32)  00484930 

CMMON/BLST/  VIS(22, 16, 32), C0N0{22, 16,32), NOD (22, 16, 32), RHALL(579) 00485000 
«  ,CPM(22,16,32),HSZ(3,2),NHSZ(22,16,32),RESORM(93)  00485100 

CONNON/BL38/NTHCO,CX(12),CY(12),CZ(12>,NTH(12,3),TCOUP(12)  00485200 

CQHHON/BL39/ALEW,PCORVE,CONSRA,PCURM1,PSOOTH,QCORR,PERROR  00485300 

XTXME-TlME»H/00  00485400 


nnnojnint  (xtliM) 
nnxannn-t'l 

ZF(  MN  .EQ.  1)  THEN 
QIUl>60. *60. /3. 4 12/1000. 'QR 

NRXTE (6,500)  XTXME, NTREAL, TIME, ITER, RESORN ( ITER) , SORSUM, QRR 
500  FORMAT (IX,  'TIME-' ,F7.3, '  S', IX, 'NTREAL-' ,19, IX, 

«  'TIME-' , P7 .2, ' <0>' , :x, ' ITER-' , 12, IX, ' SOURCE-' , 
t  F9.6,1X,'S0R8UH-',F9.6,1X,'  QR(K)t)  -  ',F10.4) 

OKH  -  ((60. *60. )/(3. 412*1000. ))*  Q 
PRINT  * 

PRINT  *,  '  PCURVE  PSOUTH  PERROR 

tCRR  QCORRT  Q(XN)  ' 

PRINT  *,  PCURVE, PSOUTH, PERROR, QCORR, QCORRT, QKN 
PRINT  * 

EUE  IF(  NN  .EQ.  2  )  THEN 
PRINT  * 

PRINT  *,'  TEMPERATURES  AT  THERMOCOUPLE  POSITION  IN  (O' 
WRITE  (6,*)  (TCOUP(N),N-l,STHCO) 

PRINT  • 

PRINT  • 

ELSE 


00485500 

00485600 

00485610 

00485700 

00485800 

00485900 

00486000 

00486100 

00486200 

00486300 

Q00486400 

00486500 

00486600 

00486700 

00486800 

00486900 

00487000 

00487100 

00487200 

00487300 

00487400 

00487500 

00487600 


wrltf  (p.nr.,  ■) '  tim#-' 
writ# (nnn, ■) '  nooet 
writ#(np.x, ") '  tim#-' 
writ#(p.p.x,  •) '  noa«» 
DO  5C2  l-;,r.kol 
K-L 

DO  502  M-1,X:?1 
:-M 


xciiRt, '  »«conds' 
u 

xzlRt, 'steonds' 

s«mper«turt 


V  w' 

pressure* 


WRITE(6,3C«)  :,X 

504  FORMAT(/,i)'.,' I2,5X,*K-',:2,/,10X,'  T  NOD' ,  3X, '  R  (GM/C.C . ) ' ,  2X, 
(  'U (CM/ SEC) * , 2X, ' V (CM/SEC) '  ,2X, 'W (CM/SEC) ' , ' P  (ATM) ' , 5X, ' SMP' , 5X, 
6  'VIS(SEC/CM-CM)',3X,'COND(SEC/CM-CM)','  XSMP*,/) 

513  DO  503  J-:,NJP1 

XTEMP-T ( : ,  J, X ) /CONST3-273 . 16 
XTEMP*T(»  J  K) 

XR-R(I,  J,'x)*RHOO/2.2:48  •  1000 .*  (0 .0328)  *'*3 
XR«R(I, J,X) 

X0-U(I,  J,:<)  ‘CONSTS 
XV-V(I, J,X) 'CONSTS 
XW-W(I, J,K) ‘CONSTS 
XP-  (PC,  J,  K)  ‘CONSTl  -SEQ  (I ,  J,  K)  ‘PINT) 

XP-PC,  J,X) 

XU-UC,  J,K) 

XV-VC,  J,K) 

XH-W (I  J  K- 1 ) 

CC  XVIS-VlsVl,  j,X)  *RHO0*C?0*K*’J0*l. 488X4 


00487800 

00487900 

00488000 

00488100 

00488200 

00488300 

00488400 

00488500 

00488600 

00488700 

00488800 

00488900 

00489000 

30489100 

00489200 

30489300 

304894C0 

30489300 

C0489600 

00489700 

00489800 

30489900 


i 


\ 


* 
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C  XCOND<OND ( I,  J,  K)  *RHOO*CPO*H*UO*1 .48814 
XVIS-V:S(I,J,K)/VISO 
XCOND-COND ( I,  J, K) /VISO 

xsmp«r:(i,j,K) 

DDYY-l . /FLOAT (NJMl-2) 

?S  •SQRT(U<I,J,K)**2+V(I, J,X)**2+W(l,J,K)**2)*DDYY/COND(I,J,K) 
WRITE  (.".nn,  555)  1,  j,  k,xu,xv,xw 

555  format ( '  node ( ' , 313, ' ) ' , 3el2 . 4 ) 
write (r.nx,  556)  i,  j,lc,xtemp,xp 

556  format (' node (',313,')', 2 (2x,el2.4)) 

503  CONTINUE 

502  CONTINUE 

WRITE(6,*)  'THE  TIME  WHEN  THE  DATA  WAS  STOREf  ON  DISK  IS:', 

«  XTIME 
cloae(nnn) 
close (nnx) 

SNDIF 

RETURN 

END 


A 


* 


00490000 

00490100 

00490200 

00490300 

00490400 

00490500 

00490600 


00490900 

00491000 


00487700 

00491100 

00491200 

00491300 
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